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SECTION  1 


INTRODUCTION 


This  report  describes  a  breadboard  microcomputer  system  based 
on  an  Intel  SBC  80/20  Single  Board  Computer  (SBC)  which  fulfills  the 
project  demonstration  requirements  for  an  improved  polling 
capability  for  various  satellite  terminal  users.  The  system 
underscores  the  flexibility  and  power  of  microprocessor-based 
hardware  and  software  applications  and  provides  extensive  simulation 
capabilities  related  to  terminal  performance  improvements  for  Air 
Force  Satellite  Communications  (AFSATCOM)  ultra  high  frequency  (UHF) 
satellite  communications  in  a  real-time  environment. 

A  preliminary  study  to  investigate  the  attributes  and  growth 
potential  of  the  AFSATCOM  narrowband  (NB)  automatic  Roll-Call 
Polling  mode  was  undertaken  by  The  MITRE  Corporation  for  the  Elec¬ 
tronic  Systems  Division/Air  Force  Systems  Command  (ESD/AFSC) .  The 
purpose  of  this  study  was  to  lay  the  groundwork  for  eventual  imple¬ 
mentation  of  polling  mode  enhancements  through  software-only  changes 
to  the  AFSATCOM  message  processor  unit  (MPU)  subsystem  as  one  means 
of  improving  overall  netting  capabilities.  Subsequent  polling- 
related  studies  involving  advanced  concepts  have  identified  growth 
possibilities  in  the  MPU  subsystem  which  need  software-only  changes. 

As  a  result  of  these  studies,  it  was  concluded  that  many  of 
these  new  polling  capabilities  could  be  demonstrated  easily  and 
economically  through  use  of  currently  available  microcomputer 
techniques  without  the  need  to  modify  any  existing  AFSATCOM  hardware 
or  software.  New  functional  capabilities  could  be  added  by  a 
serially  transparent  microcomputer  using  existing  interfaces 
presently  employed  by  the  AFSATCOM  MPU  subsystem.  A  polling 
improvements  project  was  therefore  undertaken  which  resulted  in  the 
development  and  testing  of  the  microcomputer  system  detailed  in  this 
document . 

To  place  the  polling  improvements  in  perspective,  an  overview 
of  the  AFSATCOM  space  and  terminal  segments  is  presented  in  section 
2.  Section  3  briefly  describes  the  polling  improvements  project  and 
its  initial  test  results.  Section  U  presents  details  of  the  polling 
improvements  actually  implemented  by  using  a  microcomputer  add-on 
enhancement  with  an  AFSATCOM  terminal.  Sections  5  and  6  provide 
details  of  the  microcomputer  hardware  and  software,  respectively, 
for  the  demonstration  system.  Section  7  presents  the  overall 
conclusions  and  recommendations  with  regard  to  AFSATCOM  polling 
enhancements  and  the  follow-on  objectives  and  planning  for 
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subsequent  demonstration  testing.  The  AFSATCOM  Roll-Call  Polling 
mode  is  described  in  appendix  A  and  a  full  source  code  listing  is 
provided  in  appendix  B. 
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SECTION  2 


AFSATCOM  SYSTEM  OVERVIEW 


The  AFSATCOM  System  is  designed  to  provide  command,  control, 
and  communications  capability  on  a  worldwide  basis  to  Single 
Integrated  Operations  Plan  (SIOP)  and  other  designated  high  priority 
users  for  emergency  action  message  (EAM)  dissemination,  force 
direction,  force  reportback,  and  Commander-in-Chief  (CINC) 
internetting.  Communications  are  also  provided  for  a  limited  number 
of  non-SIOP  normal  force  elements.  The  AFSATCOM  System  operates  in 
the  225  to  400  MHz  UHF  spectrum  and  uses  the  75  bits-per-second 
(b/s)  teletype  (TTY)  service  with  frequency  shift  keying  (FSK) 
modulation . 

The  AFSATCOM  System,  depicted  in  figure  2-1,  consists  of  a 
space  segment  and  a  terminal  segment.  The  space  segment  includes  a 
communications  capability  designed  into  satellites  such  as  the  Navy 
Fleet  Satellite  Communications  (FLTSATCOM)  satellites  as  well  as  Air 
Force  transponders  carried  "piggy-back"  on  other  vehicles.  The 
terminal  segment  is  composed  of  various  conf igurations  operationally 
characterized  as  SIOP,  normal  force  (non-SIOP),  and  command.  SIOP 
and  normal  force  terminals  utilize  only  5-kHz  NB  FSK  channels,  while 
command  terminals  also  have  access  to  an  M-ary  FSK  500-kHz  bandwidth 
wideband  spectrum.  To  ensure  orderly  management  of  day-to-day 
operation  and  control,  each  terminal  user  is  part  of  an  overall 
AFSATCOM  System  control  structure. 


2.1  SPACE  SEGMENT 

The  AFSATCOM  space  segment  consists  of  several  types  of 
transponder  carried  on  different  host  satellites.  AFSATCOM 
equipment  is  designed  into  each  of  the  Navy  FLTSATCOM  satellites  in 
geosynchronous  equatorial  orbit  to  provide  overlapping  earth 
coverage  in  all  areas  except  the  polar  regions.  Polar  coverage  is 
provided  by  Satellite  Data  System  (SDS)  satellites  placed  in  highly 
inclined  elliptical  orbits. 

Each  satellite  has  12  NB  channels  for  specific  user  functions. 
The  first  seven  NB  channels  are  used  to  disseminate  the  EAM,  force 
direction,  and  force  reportback  for  SlOP/nuclear-capable  forces. 

The  next  four  NB  channels  are  assigned  to  support  essential 
operations  of  non-SIOP  high  priority  Air  Force  users.  The  twelfth 
NB  channel  is  used  for  system  control  and  is  designed  to  function  as 
the  orderwire  (0W) .  Each  of  the  FLTSATCOM  satellites  also  has  a 
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wideband  (WB)  channel.  Accesses  on  the  WB  channel  have  been 
assigned  to  the  National  Command  Authority  (NCA) ,  the  CINCs,  and 
members  of  the  Worldwide  Airborne  Command  Post  (WWABNCP)  fleet  for 
the  CINC  Internet.  SIOP  and  force  terminals  do  not  have  access  to 
the  WB  channel.  Command  post  and  net  control  terminal  elements  have 
the  capability  to  command  the  various  satellite  modes  using  their  OW 
or  NB  channel  equipment. 


2.2  TERMINAL  SEGMENT 

The  AFSATCOM  terminal  segment  consists  of  various  equipment 
configurations  to  meet  SIOP,  normal  force,  and  command  operational 
requirements.  The  terminals  are  airborne  or  ground-based  depending 
on  the  user  application. 

SIOP  terminals  provide  75  b/s  half-duplex  TTY  operation  via  the 
5-kHz  NB  satellite  channels  and  can  be  operated  in  time  division 
multiplex  (TDM)  modes  under  control  of  a  command  post.  The 
input/output  (I/O)  devices  are  a  keyboard,  teleprinter,  and 
appropriate  control/monitor  panels.  Hard  copy  is  available  from 
terminals  using  the  teleprinter.  A  SIOP  synchronizer  provides 
proper  synchronization  during  TDM  operation. 

Normal  force  terminals  (airborne  and  ground)  provide  75  b/s 
half-duplex  TTY  operation  via  a  5-kHz,  fixed  frequency  satellite 
channel.  The  absence  of  a  SIOP  synchronizer  allows  the  normal  force 
terminals  to  operate  only  in  non-TDM  modes. 

Command  post  (CP)  terminals  can  send,  receive,  and  monitor 
messages;  establish  SIOP  timing  synchronization  for  TDM-1  (normal) 
and  TDM-2  (stressed)  modes;  provide  satellite  UHF  commands;  initiate 
EAMs ;  and  operate  in  a  network  control  system  using  an  OW  channel. 
They  can  also  monitor  and  record  all  reportback  data  to  allow 
command  transition.  These  terminals  use  full-duplex  75  b/s  TTY 
operation  on  the  500-kHz  WB  channel,  along  with  half-duplex  and 
full-duplex  75  b/s  TTY  on  the  5-kHz  NB  channels.  Each  CP  terminal 
can  operate  as  either  a  CP  terminal  or  SIOP  force  terminal  when  in  a 
slave  mode.  In  the  slave  mode,  SIOP  timing  synchronization  is 
provided  by  another  CP  terminal.  The  AFSATCOM  Type  12  CP  terminal 
is  described  below  since  it  was  used  for  the  polling  improvement 
demonstration  capability  discussed  later. 


2.3  AFSATCOM  TYPE  12  COMMAND  POST  TERMINAL 


The  AFSATCOM  Type  12  (AN/TSC-88)  CP  terminal  provides  full- 
duplex  record  communications  using  FSK  modulation  at  75  b/s  and  is 
housed  in  an  S-280  shelter  that  can  be  transported  for  rapid  global 
deployment.  The  terminal  consists  of  equipment  installed  in  four 
electrical  equipment  cabinets  and  a  two-position  operator  console, 
all  within  the  shelter.  Steerable  and  fixed  antennas  are  set  up 
outside  the  shelter  when  it  is  operational  and  are  stowed  inside 
during  transport.  Figure  2-2  is  a  functional  block  diagram  of  the 
Type  12  CP  terminal. 

Five  AN/ARC-171  transceivers  (R/Ts)  and  their  associated 
controls,  in  conjunction  with  two  half-duplex  and  one  full-duplex 
narrowband  modems,  and  two  full-duplex  wideband  modems,  provide  five 
transmit  (TX)  and  12  receive  (RX)  communications  channels.  These 
channels  are  identified  as  follows: 

•  NB-1:  a  one  transmit/one  receive  (lxl), 
half-duplex,  NB  (5-kHz)  channel. 

•  NB-2:  a  one  transmit/eight  receive  (1x8), 
full-duplex,  NB  (5-kHz)  channel. 

•  OW :  a  one  transmit/one  receive  (lxl), 
half-duplex,  NB  (5-kHz)  channel. 

•  WB-1:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

•  WB-2:  a  one  transmit/one  receive, 
full-duplex,  WB  (500-kHz)  channel. 

Several  narrowband  operating  modes  are  available  in  the 
AFSATCOM  System.  During  normal  operation,  messages  on  NB  channels 
one  through  seven  are  received  by  FLTSATCOM  and  SDS  satellite 
packages  on  fixed  uplink  frequencies  and  retransmitted  on  fixed 
downlink  frequencies.  Methods  of  transmission  in  the  normal  mode 
include  random  and  polled  access.  Random  operation  allows  the 
terminal  to  enter  the  net  on  a  random  access  basis  using  an  open 
(not  busy)  select  channel.  Polled  operation  allows  the  Type  12  CP 
terminal  to  query  each  terminal  in  the  net  in  sequence,  with  each 
terminal  responding  automatically  with  a  precomposed  message  when  it 
detects  its  own  unique  code  sequence. 

All  of  the  NB  channels,  including  the  OW  channel,  can  be  used 
for  automatic  polling.  In  the  polling  mode,  the  Type  12  CP  terminal 
sequentially  addresses  poll  inquiry  messages  to  terminals  assigned 
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2-2  Type  12  Ground  Command  Post  Functional  Block  Diagram 


to  various  poll  groups.  Poll  groups  and  polling  operations  are 
under  the  control  of  software  programs  in  the  terminal  computer,  the 
MPU.  Four  separate  poll  groups  and  up  to  16  members  apiece  are 
allowed  by  the  software.  Each  terminal  to  be  polled  will  precompose 
a  poll  response  message.  When  the  unique  address  of  that  terminal 
is  recognized  in  a  poll  message,  the  precomposed  message  of  up  to  30 
seconds  in  length  is  automatically  transmitted. 

During  periods  of  high  density  traffic,  the  Type  12  terminal 
can  initiate  synchronized  operation  for  SIOP  users  by  implementing  a 
TDM  mode.  In  this  mode,  the  CP  synchronizer  periodically  transmits 
a  sync  message  which  automatically  establishes  a  time  reference 
within  each  SIOP  terminal  in  the  net.  In  the  TDM-1  mode,  each  SIOP 
terminal  is  constrained  to  transmit  a  precomposed  message  within  its 
assigned  time  slot.  Sixty  consecutive  time  slots  constitute  a  frame 
after  which  the  sequence  is  repeated,  with  the  CP  synchronizer 
transmitting  a  new  sync  message  in  the  last  time  slot  of  each  frame. 

During  TDM-1,  only  the  transmit  time  of  each  SIOP  terminal  is 
controlled  by  the  CP  synchronization  message.  During  TDM-2,  both 
the  transmit  time  and  transmit  frequency  of  each  SIOP  terminal  are 
synchronized  by  the  CP  synchronizer.  In  the  TDM-2  mode,  the 
satellite  transponder  is  commanded  into  a  stressed  mode,  which 
causes  the  first  seven  NB  receive  channels  in  the  satellite  to 
frequency  hop  on  a  pseudorandom  basis.  Also  in  the  TDM-2  mode,  each 
SIOP  terminal  is  constrained  to  transmit  in  its  assigned  time  slot 
and  the  transmit  frequency  changes  with  each  time  slot.  The 
transmit  frequency  is  determined  by  the  code-of -the-day  which  is 
programmed  into  each  synchronizer  by  the  operator.  Before  the  net 
can  enter  the  TDM-2  mode,  the  satellite  must  be  commanded  into  the 
stressed  mode. 

Three  modes  of  operation  are  also  provided  on  the  WB  M'ary  FSK 
channels.  These  are:  (1)  random  access  precomposed  message;  (2) 
random  access  manual  message  composition;  and  (3)  full-duplex  relay, 
which  is  also  available  in  NB  random  access  mode. 

During  normal  CP  terminal  operations,  communications  channels 
OW  and  WB-2  are  assigned  to  operate  with  a  fixed  antenna.  The  WB-1, 
NB-1,  and  NB-2  channels  are  assigned  to  operate  with  a  tracking 
antenna.  Antenna  switching  is  provided  to  allow  the  OW  and  WB-1 
channels  to  operate  with  either  antenna. 

Additional  details  pertaining  to  the  AFSATCOM  Type  12  terminal 
can  be  found  in  another  document. 


2.4  CURRENT  AFSATCOM  POLLING  CAPABILITIES 


The  present  AFSATCOM  polling  capability  is  primarily 
structured  for  automatic  operation  in  the  non-TDM  unencrypted  mode 
over  a  single  5-kHz  NB  channel.  Polling  operations  for  AFSATCOM 
System  control  are  conducted  from  MPU-equipped  terminals  by 
utilizing  a  polling  algorithm  contained  in  the  MPU  software. 
Communications  supervisory  (COMSUP)  commands  input  by  the  terminal 
operator  are  used  either  to  enter  or  delete  poll  addresses  as  well 
as  to  start  polling  operations.  Up  to  64  pollees  may  be  entered 
into  a  poll  net  consisting  of  four  groups  having  16  members, 
maximum,  per  group.  Addresses  for  each  group  member  are  related  to 
others  in  the  same  group,  with  poll  address  recognition  actually 
taking  place  within  the  AFSATCOM  automatic  send-receive  (ASR)  I/O 
hardware.  During  MPU  automatic  polling  operations,  a  non-reportback 
of  a  polled  address  will  cause  a  30-second  fixed  time-out  delay 
within  the  MPU  before  generation  of  the  next  poll  mersage.  Appendix 
A  gives  a  more  complete  description  of  current  AFSATCOM  polling 
operation,  including  polling  message  formats,  address  structure,  and 
poll-related  COMSUP  commands  for  the  MPU. 


2.5  POLLING  LIMITATIONS 

The  following  limitations  of  the  AFSATCOM  polling  mode 
constrain  its  utility  in  an  operational  environment. 


1 .  Small  Network  Size 

A  maximum  of  only  64  pollees  can  be  accommodated  in  the 
existing  MPU  polling  software.  Present  AFSATCOM  require¬ 
ments  forsee  nets  needing  to  accommodate  between  two  and  three 
times  this  number. 

2 .  Inflexible  Addressing  Structure 

The  group  organization  required  in  present  auto  polling 
dictates  that  all  members  of  a  poll  group  have  the  last 
two  of  their  three  address  characters  in  common.  Polling 
always  commences  with  the  lowest  address  of  each  group  of 
16  and  proceeds  in  sequence  toward  the  highest  address 
before  attempting  to  poll  the  next  group.  No  provision 
is  made  for  randomized  poll  addressees  who  are  not  group- 
related  members . 
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3 .  No  Prioritization/Interruption  Features 

No  provision  is  made  for  real-time  prioritization  of  pollees 
based  on  operational  needs  for  early  or  more  frequent  report- 
back  requirements.  Also,  no  provision  is  made  for  momentary  or 
short-term  interruptions  of  polling  operations  to  accommodate 
higher  priority  traffic  without  complete  repolling  of  all  users. 

4 .  Inefficient  Bookkeeping  Scheme 

Current  polling  operations  dictate  that  all  poll  address 
additions  or  deletions  be  entered  by  COMSUP  command.  This  can 
be  a  time  consuming  process,  especially  since  no  provision  for 
a  truly  automated  MPU  poll  table  generation/display  is  avail¬ 
able  to  the  operator.  Also,  prior  coordination  of  poll  address 
assignments  is  essential  but  is  unwieldly  when  attempted 
in  real-time.  Manual  bookkeeping  procedures  are  thus  mandated 
to  keep  abreast  of  current  poll  net  membership. 

5 .  No  Automated  Handover  Procedures 

No  provision  is  currently  made  for  an  automated  handover 
procedure  to  an  alternate  net  control  station  (NCS)  for 
polling  operations.  All  poll  address  additions/deletions 
must  be  accommodated  by  the  alternate  NCS  on  a  manual 
bas is . 

6 .  No  TDM  Polling  Mode 

Automatic  polling  is  currently  restricted  to  the  non-TDM 
mode.  Although  TDM  poll  response  is  possible  from  a  polled 
I/O,  the  existing  MPU  polling  software  is  not  presently  con¬ 
figured  to  cope  with  the  structural  differences  between  AFSATCOM 
non-TDM  and  TDM  operation  since  automated  TDM  polling  was 
not  originally  conceived  as  a  basic  AFSATCOM  netting  require¬ 
ment  . 

7 .  Single  Channel  Polling  Restriction 

Polling  inquiry  messages  sent  by  the  MPU  during  polling 
operations  are  limited  to  a  single  channel.  Simultaneous, 
independent  polling  on  more  than  one  channel  is  not  currently 
possible  in  a  terminal  equipped  with  a  single  MPU. 

8 .  Unencrypted  Reportback  Limitation 

In  general,  the  30-second  time-out  constraint  during  automatic 
polling  limits  the  length  of  reportback  possible.  In  addition, 
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MPU-equipped  terminals  incur  internal  MPU  delays  such  that  their 
reportback  is  limited  to  130  characters,  maximum.  This  restricts 
the  use  of  the  Auto  Polling  mode  to  unencrypted  operation  with  a 
fixed  upper  limit  on  the  size  of  a  reportback  message;  the  upper 
limit  depends  on  the  type  of  terminal  responding. 


9 .  No-show  Delay  Penalty 

The  present  fixed  30-second  time-out  for  auto-polling  also 
incurs  a  severe  delay  penalty  when  a  no-show  occurs.  A  no- 
show,  or  non-reportback ,  may  occur  for  a  variety  of  reasons 
such  as  failure  to  properly  receive  the  polling  inquiry  message, 
failure  to  be  in  the  I/O  poll  mode,  etc.  Figure  2-3  shows  the 
polling  delay  performance  of  the  present  non-TDM  roll-call 
polling  mode  as  a  function  of  the  number  of  non-reportbacks 
(assuming  a  40-character  reportback  when  one  does  occur)  for  the 
maximum  net  size  of  64  polled  non-MPU  terminals.  The  vertical 
axis  indicates  the  time  to  completion  for  polling  the  entire 
net.  As  fewer  net  members  report  back,  the  time  to  completion 
for  polling  increases  dramatically.  This  is  counter  to  the 
concept  of  maintaining  a  predictable  level  of  AFSATCOM  network 
performance  in  situations  supposedly  under  the  control  of  a  CP 
terminal . 

10 .  Error  Detection  and  Correction 

No  automated  procedure  currently  exists  for  repolling  a  net 
member  upon  detection  of  a  character  error  while  in  the  polling 
mode.  The  existing  AFSATCOM  unencrypted  message  structure  pro¬ 
vides  for  odd-parity  character  transmission,  but  this  capability 
has  yet  to  be  fully  exploited. 


NO  OF  NON  REPORTBACKS 


SECTION  3 


AFSATCOM  POLLING  IMPROVEMENTS  PROJECT 


Providing  enhanced  polling  capabilities  by  using  AFSATCOM- 
compatible  techniques  to  meet  the  ever  increasing  demands  of  the 
AFSATCOM  System  is  a  primary  concern  because  the  Air  Force  has  an 
extensive  hardware  investment  in  terminal  assets.  Significant 
changes  to  present  hardware  or  software  must  be  evaluated  with 
regard  to  both  operational  and  logistical  effects.  Polling 
improvements  should  also  provide  flexibility  for  a  wide  range  of 
applications  yet  to  be  defined  and  at  the  same  time  address  the 
reportback  needs  of  specific  AFSATCOM  users  with  known  requirements. 

3.1  PROJECT  DESCRIPTION 

A  microcomputer-based  approach  for  demonstrating  various 
improved  AFSATCOM  polling  capabilities,  involving  no  hardware  or 
software  modifications  to  existing  AFSATCOM  equipment,  was  conceived 
by  MITRE  to  be  the  most  cost-effective  means  of  validating  many  of 
the  proposed  concepts.  The  microcomputer  provides  real-time,  on¬ 
line  simulation  of  new  polling  capabilities  while  functionally 
emulating  changes  to  MPU  software.  Making  this  microcomputer 
serially  transparent  to  existing  system  operation  with  no  need  to 
modify  AFSATCOM  assets  is  an  inexpensive  way  to  validate  new  polling 
concepts.  Operational  MPU  software  does  not  need  to  be  modified 
until  after  these  concepts  are  validated  and  user  coordination  is 
achieved  on  a  final  implementation  approach.  Physically,  the 
microcomputer  interfaces  between  the  MPU  and  either  NB-1  or  OW  modem 
in  the  AFSATCOM  Type  12  terminal.  A  project  was  initiated  to 
translate  these  improved  polling  concepts  into  actual  breadboard 
hardware  and  software  suitable  for  demonstration  purposes.  For  this 
purpose,  the  microcomputer  development  facility  based  around  a 
Tektronix  8002A  microprocessor  laboratory  at  MITRE-Bedford  was  used. 

Figure  3-1  describes  the  overall  implementation  approach  for 
the  project.  Because  of  the  small  staff  for  this  undertaking  (two 
part-time  MITRE  technical  staff),  relatively  close  coordination 
between  hardware  and  software  design  efforts  was  possible,  with  the 
result  that  the  project  was  successfully  completed  in  nine  calendar 
months . 
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Figure  3“l  Polling  Ha rdwa re/Sof twa re  Design  Cycle 


3.2  LIMITED  TEST  RESULTS 


Following  completion  of  bench  testing  and  terminal  integra¬ 
tion,  the  microcomputer  system  was  made  available  for  demonstra¬ 
tion  testing.  Technical  compatibility  of  the  improved  polling 
hardware/  software  with  the  AFSATCOM  Type  12  terminal  was 
demonstrated  during  the  initial  tests.  With  the  microcomputer 
installed  in  the  terminal,  both  software  and  hardware  bypasses 
provided  AFSATCOM  system  transparency  for  normal  AFSATCOM  modes. 
After  completion  of  various  terminal  performance  tests,  actual 
network  testing  was  conducted  using  the  FLTSATCOM  satellites.  All 
of  the  significant  performance  improvements  for  polling  (described 
in  detail  in  section  4)  were  also  demonstrated  successfully  in 
conjunction  with  other  cooperative  AFSATCOM  terminals  operating 
through  the  satellite  system.  As  a  result,  the  microcomputer  system 
is  now  considered  available  for  network-wide  tests  on  a  much  larger 
scale,  with  emphasis  on  operational  testing  to  demonstrate  improved 
netting  capabilities  to  potential  users. 
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SECTION  4 


MICROCOMPUTER-BASED  POLLING  ENHANCEMENTS 


Significant  improvements  to  the  present  AFSATCOM  polling  mode 
operation  have  been  achieved  with  the  microcomputer-based  addition 
to  the  AFSATCOM  Type  12  CP  terminal.  These  improvements  have  been 
demonstrated  to  participating  terminal  operators  during  actual  on¬ 
line  demonstrations. 


4.1  MAJOR  POLLING  IMPROVEMENTS 

The  major  polling  improvements  implemented  in  the  AFSATCOM  Type 
12  CP  terminal  are  described  below.  Table  4-1  compares  existing 
AFSATCOM  polling  capabilities  and  the  microcomputer-based 
improvements.  These  improvements  are  a  real-time  simulation  of 
capabilities  possible  with  software-only  improvements  to  the 
AFSATCOM  MPU . 


4.1.1  Group/Non-Group  Polling  and  Prioritization 

The  current  AFSATCOM  System  can  poll  up  to  four  groups  of 
related  net  members  where  each  group  is  defined  as  a  set  of  16 
addresses  and  each  address  in  the  group  has  the  same  last  two  hexa¬ 
decimal  address  characters.  This  group  structure  is  retained  in  the 
improved  polling  software.  In  addition,  a  new  set  of  net  members  is 
permitted  which  may  contain  up  to  80  random  addressees  (equivalent 
to  five  16-member  groups)  independent  of  any  related  group  address 
structure.  This  provides  flexibility  to  organize  and  poll  up  to  a 
maximum  of  144  group  and  non-group  net  members  per  channel. 

During  polling  net  organization  with  the  microcomputer 
software,  the  non-group  members  are  accorded  a  higher  priority  level 
with  respect  to  group-related  members.  Four  priority  levels  of 
polling  net  organization  have  been  chosen  for  demonstration 
purposes:  (1)  priority  check-ins,  (2)  routine  check-ins,  (3)  no¬ 
traffic  check-ins,  and  (4)  group  check-ins. 

During  polling  operations,  the  non-group  related  check-ins  of 
priority  levels  1,  2,  and  3  are  polled  before  the  group-related 
check-ins  of  level  4.  The  NCS  terminal  operator  can  enter  any  of 
these  check-ins  into  the  polling  net  by  COMSUP  command.  A  remote- 
entry  automatic  check-in  for  levels  1,  2,  and  3  is  also  possible. 
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In  addition  to  normal  termination  of  polling,  an  automatic 
repoll  capability  has  been  provided  to  allow  continuous  monitoring 
of  reportback  status  activity.  Also,  an  interrupt -and-resume 
feature  provides  a  standby  mode  for  polling  operations  to 
accommodate  higher  priority  communications  without  the  need  to  re¬ 
initiate  a  repoll  of  net  members  who  have  already  reported  back. 


4.1.2  Remote  Entry  Automatic  Check-in 

The  microcomputer  software  provides  an  automatic  remote  self 
check-in  before  the  start  of  actual  polling  operations.  This  allows 
potential  users  to  become  polling  network  members  without  manual 
intervention  by  the  NCS  terminal  operator.  A  non-group  polling  list 
can  be  rapidly  structured  yet  the  work- load  imposed  on  the  operator 
by  the  large  number  of  possible  random  addressees  is  minimized. 

This  enhancement  also  allows  check-in  table  entry  while  current 
polling  operations  are  in  progress. 

The  NCS  terminal  operator  retains  positive  control  of  all 
check-ins,  including  remote  check-ins  with  the  following  software 
features : 

1.  The  remote  check-in  mode  can  be  enabled  or  disabled 
separately  by  COMSUP  command. 

2.  Check-ins  can  be  verified  using  COMSUP  commands  to  obtain 
hardcopy  poll  table  printouts  of  listed  poll  check-ins 
and  poll  net  members.  (This  includes  both  group  and 
non-group  check-ins.)  Check-in  addition/deletion  can 

be  accommodated  by  COMSUP  command  as  needed. 

3.  Automatic  slot  assignment  and  reportback  prioritization 
(order  of  reportback)  of  poll  net  members  is  done  in  the 
polling  software  before  the  start  of  actual  polling 
operations;  reassignment  of  slots  is  also  possible 

with  a  COMSUP  command. 

4.  An  ALL  CALL  message  initiated  via  COMSUP  command  by  the 
NCS  terminal  operator  informs  all  listed  polling  net 
members  of  their  TDM  slot  assignments  (to  be  dialed 
manually  into  their  respective  AFSATCOM  synchronizers). 
Dial-up  of  respective  slot  assignments  avoids  subsequent 
contention  problems  during  TDM  polling  operations  should 
that  mode  become  active. 
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4.1.3 


TDM  Auto  Polling 


This  enhancement  provides  TDM  auto  polling  in  addition  to  the 
polling  capabilities  available  in  the  non-TDM  mode.  Thus,  AFSATCOM 
TDM-1  and  TDM-2  system  modes  are  made  compatible  with  the  new 
terminal  polling  capabilities.  This  implementation  requires  the 
AFSATCOM  synchronizer  in  the  CP  terminal  to  act  as  a  master  (i.e.,  a 
net  control  element)  during  TDM  polling  operations. 

To  carry  out  auto  polling  in  the  TDM  modes,  the  software 
utilizes  a  tabular  listing  containing  the  addresses  of  all  terminals 
in  the  poll  network  and  their  respective  assigned  reportback  time 
slots.  The  TDM  mode  provides  60  slots  per  frame.  During  actual 
polling  operation  in  the  TDM  mode,  eight  contiguous  slots  containing 
up  to  six  poll  messages  per  slot  at  the  beginning  of  each  AFSATCOM 
frame  are  dedicated  to  sending  polling  messages  from  the  CP  terminal 
to  the  pollees.  Three  unassigned  slots  immediately  following  these 
eight  may  be  used  for  break-in  by  unassigned  or  emergency  users. 

The  48  slots  following  can  then  be  used  for  terminal  reportbacks . 

The  final  slot  in  the  frame,  however,  is  normally  reserved  for 
synchronization  messages.  Because  each  AFSATCOM  terminal  is 
assigned  its  own  unique  address,  several  pollees  can  be  assigned  to 
the  same  reportback  slot.  The  microcomputer  software  presently 
provides  for  polling  a  maximum  of  144  users  in  three  successive 
frames  (with  48  reportbacks  per  frame).  This,  however,  is  not  an 
ultimate  AFSATCOM  System  limitation.  Up  to  three  addressees  may  be 
assigned  to  the  same  slot  under  this  polling  scheme,  but  this  number 
could  be  increased  to  accommodate  additional  users  as  necessary,  if 
more  frames  are  used. 

The  AFSATCOM  TDM  response  of  force  terminals  (or  CP  terminals 
in  the  slave  mode)  limits  polling  responses  by  a  polled  terminal  to 
40  message  characters  during  a  frame.  Also,  TDM  polling  does  not 
have  an  encryption  capability  as  presently  implemented.  However, 
various  priority  traffic  indicators  in  the  poll  response  message 
cause  a  printout  alert  message  at  the  NCS  terminal  for  subsequent 
operator  action.  These  are  described  in  more  detail  below. 


4.1.4  Automatic  Slot  Assignment 

In  conjunction  with  TDM  polling,  the  microcomputer  software 
provides  automatic  slot  assignment  of  listed  poll  net  members  for 
subsequent  TDM  reportback.  Before  actual  start  of  polling,  members 
of  the  network  are  informed  of  their  slot  assignments  by  means  of  an 
ALL  CALL  message  generated  by  the  software.  This  message  also 
indicates  which  users  have  been  accepted  into  the  poll  listing  along 
with  their  priority  order  of  reportback.  The  ALL  CALL  message,  like 
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the  slot  assignment  made  during  the  course  of  compiling  the  poll 
table,  is  generated  automatically  by  operator-initiated  COMSUP 
command . 


4.1.5  Encrypted  Non-TDM  Polling 

The  present  AFSATCOM  polling  time-out  limitation  of  30  seconds 
precludes  the  use  of  long  encrypted  reportback  sequences.  The 
microcomputer  system  software,  however,  permits  encrypted  polling 
responses  in  the  non-TDM  mode  of  operation.  The  software  is 
configured  to  recognize  KG-35  encryption  device  message  indicator 
(MI)  sequences  at  the  beginning  of  a  message  and  automatically 
disables  odd-parity  checking  in  the  AFSATCOM  NB  modem  upon 
recognition  of  a  valid  MI  header.  While  message  traffic  is  being 
received  during  polling,  no  message  time-out  occurs  in  order  to 
accommodate  encrypted  sequences  of  long  lengths.  Once  received,  the 
AFSATCOM  MPU  routes  the  incoming  encrypted  reportback  to  a  KG-35 
device  for  eventual  decryption. 


4.1.6  Error  Detection  and  Correction  (EDAC) 

The  present  AFSATCOM  polling  capability  does  not  provide  for 
any  EDAC  during  either  polled  or  non-pol led  operations.  The 
microcomputer  software  does  provide  limited  EDAC  during  polling 
through  satellite  downlink  monitoring  of  poll  messages.  Polling 
message  retransmission  then  takes  place  upon  detection  of  error. 

This  technique,  however,  requires  full-duplex  operation 
(simultaneous  transmit  and  receive)  whereas  the  demonstration 
hardware  is  interfaced  with  either  the  AFSATCOM  OW  or  the  lxl  NB 
modem,  both  of  which  are  configured  as  half-duplex  equipment. 

With  a  full-duplex  channel,  after  transmission  of  a  polling 
message  during  non-TDM  mode,  the  microcomputer  compares  the  message 
sent  with  the  one  received  on  the  satellite  downlink  and  causes  a 
retransmission  of  the  same  message  upon  detection  of  any  mismatch. 

A  maximum  of  three  automatic  poll  message  retransmissions  is 
possible  with  the  present  microcomputer  software.  No  EDAC  is 
presently  provided  in  the  TDM  polling  mode  nor  is  EDAC  provided  on 
reportback  responses,  although  no  inherent  limitation  precludes  such 
additional  capability. 


4.1.7  Variable  Non-Reportback  Time-out 

A  variable  non-reportback  time-out  feature  using  a  COMSUP 
command  with  the  microcomputer  software  provides  the  terminal  NCS 
operator  with  an  added  dimension  for  control.  By  controlling  the 
time-out  delay  from  the  possible  non-reportback  of  polled  terminals, 
the  operator  can  minimize  the  time-to-completion  of  polling  the 
overall  network.  The  operator  enters  the  COMSUP  command  with  the 
desired  time-out  duration  expressed  in  seconds.  Note  that  the 
present  AFSATCOM  non-reportback  poll  time-out  is  a  non-changeable  30 
seconds,  whereas  the  microcomputer  software  allows  for  a  1  to  99 
second  range.  Choice  of  the  optimum  delay  depends  on  actual 
satellite  and  AFSATCOM  I/O  device  delays  and  the  polling  strategy  to 
be  employed.  The  ability  to  vary  the  time-out  delay  can  have 
profound  effects  on  the  overall  polling  completion  time. 

4.2  NEW  COMMANDS  AND  MESSAGES  FOR  POLLING 

The  following  new  polling  commands  and  message  formats  are 
possible  with  the  microcomputer  software. 


4.2.1  COMSUP  Commands 

Table  4-2  summarizes  the  new  COMSUP  commands  available  to  the 
NCS  terminal  operator  when  using  the  microcomputer  system  polling 
enhancements.  Note  that  all  the  commands  listed  contain  the  ZNR 
character  field  in  the  first  three  character  positions  in  order  to 
identify  this  properly  as  an  unencrypted  message  in  an  AFSATCOM 
preproduction  Type  12  terminal.  (AFSATCOM  production-type  terminals 
would  require  a  "UUU"  sequence.)  The  fourth  character  position  is 
an  exclamation  point  ("!")  which  signifies  a  COMSUP  message  to  the 
microcomputer's  improved  polling  software.  The  fifth  character 
position  of  a  COMSUP  message  is  always  a  mode  character.  Characters 
six  through  nine  are  microcomputer  address  characters.  (The 
microcomputer  address  is  also  changeable  via  a  COMSUP  command.) 
COMSUP  commands  intended  for  the  microcomputer,  and  any  other 
unencrypted  messages,  are  input  to  the  AFSATCOM  terminal  and 
intercepted  by  the  polling  software.  These  COMSUP  commands  are 
never  transmitted  to  the  AFSATCOM  modem. 

The  seven  message  categories  defining  the  new  COMSUP  commands 
are  shown  in  table  4-2.  These  functional  categories  satisfy  the 
increased  control  and  data  entry  requirements  for  the  various 
polling  mode  enhancements. 
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Table  4-2 


COMSUP  Commands  For  Po  1 1  i ng  Enhancements 


Command  Type 

Check-in  Table 
Entry 


Check-in  Table 
Deletion 


Function (s)  Command  Message  Format 


Enable  External 
Check-ins 

ZNR! 

SABC1 

Disable  External 

Check- i ns 

ZNR! 

SABC0 

Single  Priority 
Check-In 

ZNR! 

CABCAAA1 

Single  Routine 

Check-in 

ZNR! 

DABCBBB1 

Single  No-Traffic 
Check-in 

ZNR! 

EABCCCC0 

Group  Check-in 

ZNR! 

BABCDD1 

Priority  Table  Load 

ZNR! 

1  ABC  ADR1 

ADR2 

Routine  Table  Load 

ZNR! 

2ABC  ADR3 

ADR4 

No  Traffic  Table  Load 

ZNR! 

3ABC  ADR5 

ADR6 

Priority  Table 

Re- initial i ze 

ZNR! 

FABC 

Routine  Table 

Re- in i t ia 1 ize 

ZNR! 

GABC 

No-Traffic  Table 

Re- i n i t i al ize 

ZNR! 

KABC 

Group  Table  Re¬ 
initialize 

ZNR! 

AABC 

Single  Priority 
Deletion 

ZNR! 

NABCP01 

Single  Routine 

Deletion 

ZNR! 

NABCR01 

Single  No-Traffic 
Deletion 

ZNR! 

NABCN01 

Single  Group 

Deletion 

ZNR1NABCG01 
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Table  k-2  (Continued) 

COMSUP  Commands  For  Po  1  I  ing  Enhancements 


Command  Type 

Funct ion (s) 

Command  Message  Format 

Check-in/Poll  Table 

Pr i ntout 

Priority  Table 

Pr i ntout 

ZNR ! UABCPXYZ 

Routine  Table 

Pr i ntout 

znrjuabcrxyz 

No-Traffic  Table 
Printout 

ZNR1UABCQXYZ 

Group  Table 

Pr i ntout 

ZNR ! UABCOXYZ 

Bu i 1 d/Pr i ntout 
of  Poll  Table 

ZNR1MABC 

Pol  1  Table 

Printout  (Local) 

ZNR ! UABCZXYZL 

Pol  1  Table  Print¬ 
out  (Local  and 

Remote  All  Call) 

ZNR ! UABCZXYZR 

External  Table 

T  ransfer 

Priority  Check-in 
Table  Transfer 

ZNR ! TABCXXYZ 

Routine  Check-in 
Table  Transfer 

ZNR1TABCYXYZ 

No-Traffic  Check-in 
Table  Transfer 

ZNR ! TABCZXYZ 

Pol  1  Table  Transfer 

ZNR1TABCTXYZ 
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Table  4-2  (Continued) 

COMSUP  Commands  For  Polling  Enhancements 


Command  Type 

Funct ion (s) 

Command  Message  Format 

1  Mode  Control 

Single  Pol l  Enable 

ZNR! JABC1S 

Single  Pol  1  Di sable 

ZNR! JABC0S 

Multiple  Pol  1 

Enable 

ZNRIJABC1M 

Multiple  Poll 

Di sable 

ZNR ! JABC0M 

Non -TDM  Poll 
Interrupt 

ZNR1LABC10 

TDM  Pol  1  Interrupt 

ZNR ! LABCD1 

TDM  and  Non -TDM 

Poll  Interrupt 

ZNR! LABC1 1 

Disable  A1 1  Pol  1 
Interrupts 

ZNR ! LABC00 

FDAC  Mode  Fnah'e 

7NR ! PABC1 

EDAC  Mode  Disable 

ZNR!PABC£> 

Pol  1  Message  Time 

Del  ay 

ZNR1KABC10 

Reportback/Pol 1 
Message  Slot 

Reass i gnment 

ZNR! OABC 101 82634425004 
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Table  4-2  (Continued) 


COMSUP  Commands  For  Po  1 1  i nq  Enhancements 


Command  Type 


Function(s)  Command  Message  Format 


Mi  see  1 1 aneous 


Disable  COMSUP  Msg. 
Printout 

ZNR14ABCJ3 

Enable  COMSUP  Msg. 

Pr i ntout 

ZNR14ABC1 

Di sregard  A1 1  Non- 
COMSUP  Msgs. 

ZNR1VABC2 

Disregard  Non-COMSUP 
Msgs .  when  Polling 

ZNR1VABC1 

Enable  Recognition  of 

A1 1  Types  of  Msgs . 

ZNR ! VABCP 

RS-232  I/O  Enable 

ZNR1QABC1 

RS-232  I/O  Disable 

ZNR1QABC0 

Microcomputer  Address 
Change 

ZNR! IABCCAB 

Program  Re- i n i t i al i ze 

ZNR ! RABC 

Loop-Around  Message 

ZNR* . 

T  ransmi tted 
Message 
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4.2.2  Error  Messages 

Table  4-3  summarizes  the  new  error  messages  available  to  the 
terminal  operator  with  the  microcomputer  software.  These  messages 
assist  in  either  flagging  anomalous  COMSUP  command  inputs  to  the 
microcomputer  or  indicating  to  the  operator  when  pre-determined 
limits  have  been  reached  for  polling  check-in  messages. 


4.2.3  External  Message  Formats 

Table  4-4  summarizes  the  types  of  externally  generated  messages 
from  the  AFSATCOM  modem  which  are  used  for  polling  operations  with 
the  microcomputer  software.  These  messages  are  divided  into  three 
basic  categories: 

1.  Single  Check-in 

2.  Check-in  Table  Transfer 

3.  Reportback 

The  single  check-in  message  is  normally  sent  by  a  terminal 
desiring  to  become  a  member  of  a  poll  network.  It  is  accepted  by 
the  microcomputer  software  after  the  check-in  mode  has  been  enabled 
by  the  NCS  terminal  operator. 

Check-in  table  transfer  message  formats  allow  entry  of  entire 
sets  of  check-ins  involving  multiple  addressees  into  appropriately 
prioritized  check-in  tables. 

Reportback  message  formats  are  normally  sent  by  a  terminal 
responding  to  a  poll  inquiry  message.  When  the  microcomputer 
software  recognizes  these  reportback  formats  during  polling 
operation,  appropriate  prioritization  header  messages  are  appended 
to  the  incoming  message  before  printout  on  the  terminal  I/O  device. 


Table  4-3 


Error  Message  Formats 


Message  Name 

Funct i on 

Message  Text 

ADRERRORHDR 

Informs  of  incorrect 
address  characters 

Incorrect  ADR  Characters 

ERRORHDR 

Informs  of  incorrect 
mode  character 

Incorrect  Mode  Character 

TFRERRORHDR 

Informs  of  attempted 
check-in  table  transfer 
with  no  check-ins  listed 

Table  Transfer  Error: 

No  Check-ins 

OVERFLOWHDR 

Informs  of  Check-in 
limit  being  re  ached 

Check-ins  at  the  Limit 

Table  4-4 

External  Message  Formats 

Message  Type 

Funct ion 

Format 

Single  Check-in 

Priority  Check-in 

'SOH  C  ABC  ADR1  Text 

Routine  Check-in 

SOH  D  ABC  ADR2  Text 

No-Traffic  Check-in 

SOH  E  ABC  ADR3  Text 

Check-in  Table 
Transfer 

Priori ty  Check- i n 
Table  Transfer 

SOH  X  ABC  ADR1ADR2. . . . 

Routine  Check-in 
Table  Transfer 

SOH  Y  ABC  ADR3ADR4. . . . 

No-Traffic  Check-in 
Table  Transfer 

SOH  Z  ABC  ADR5ADR6. . . . 

Reportback  Message 

:  Priority  Report 

back 

SOH  P  ABC  Text 

Routine  Report 
back 

SOH  R  ABC  Text 

No-Traffic  Report 
back 

SOH  N  ABC  Text 
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SECTION  5 


MICROCOMPUTER  HARDWARE 


The  microcomputer  developed  for  demonstrating  AFSATCOM  polling 
improvements  is  shown  in  the  functional  block  diagram  in  figure  5-1. 
It  consists  of  an  Intel  SBC  80/20  Single  Board  Computer,  a  National 
Semiconductor  Model  BLC  416  16K-byte  programmable  read-only  memory 
(PROM)  board,  an  Intel  Model  450  16K-byte  random  access  memory  (RAM) 
board,  a  power  supply  subsystem,  and  interface/display  logic 
circuitry.  The  SBC  80/20,  RAM,  and  eraseable  PROM  (EPROM)  boards 
are  housed  in  the  Intel  SBC  604  Modular  Cardcago/Backplane  which 
provides  interconnection  for  up  to  four  plug-in  boards.  The  SBC  604 
also  allows  interconnection  of  two  or  more  cardcage  backplane 
assemblies  for  expansion,  in  addition  to  power  supply  < onnectors  and 
signal  line  termination  circuits.  A  small  table-top  IP-inch  modular 
rack  mounting,  shown  in  figure  5-2,  contains  the  cardcage,  along 
with  the  power  supply  subsystem,  slot  selection  and  display 
circuits,  bypass  switches,  test  points,  and  cable  terminations  for 
circuit  connections  to  the  AFSATCOM  System. 


5.1  INTEL  SBC  80/20  SINGLE  BOARD  COMPUTER 

The  Intel  SBC  80/20  Single  Board  Computer  is  the  heart  of  the 
microcomputer  implementation  for  polling  improvements.  It  is  one  of 
Intel's  line  of  computer  products  and  takes  full  advantage  of  large 
scale  integration  (LSI)  technology  to  provide  a  self-contained 
computer  capability  on  a  single  6.75  x  12.00  inch  printed  circuit 
board.  On-board  capability  provides  a  central  processing  unit 
(CPU),  system  clock,  read/write  memory,  nonvolatile  read-only  memory 
(ROM),  1/0  ports  and  drivers,  a  serial  RS-232  communications 
interface,  priority  interrupt  logic,  and  two  programmable  timers. 

In  addition,  on-board  multibus  control  logic  and  bus  expansion 
drivers  allow  interfaces  to  multibus-compatible  boards  including 
expansion  memory,  digital  and  analog  1/0  expansion  boards, 
peripheral  controller,  and  other  single  board  computers.  A  complete 
functional  description  of  the  SBC  80/20  is  found  in  reference  1. 
Details  of  the  SBC  80/20  are  found  in  reference  2.  Table  5-1  lists 
integrated  circuit  (IC)  locations  for  polling  program  storage  on  the 
SBC  80/20. 
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Table  5-1 

EPROM  (2708)  Location  Summary 


Prom  § 

1C 

Board 

Start  ADR  (Hex) 

Finish  ADR  (Hex) 

1 

A79 

SBC  80/20 

0000 

03FF 

2 

A64 

SBC  80/20 

0400 

07FF 

3 

A51 

SBC  80/20 

0800 

OBFF 

4 

A37 

SBC  80/20 

0C00 

OFFF 

5 

U33 

BLC  416 

1000 

1  3FF 

6 

U21 

BLC  416 

1400 

17FF 

7 

U9 

BLC  416 

1800 

1 BFF 

8 

U3 

BLC  416 

1C00 

1 FFF 

9 

U34 

BLC  416 

2000 

23FF 

10 

U22 

BLC  416 

2400 

27FF 

11 

u  1  0 

BLC  416 

2800 

2BFF 

12 

1)4 

BLC  416 

2C00 

2FFF 

13 

U35 

BLC  416 

3000 

33FF 

14 

U23 

BLC  416 

3400 

37FF 

15 

U1 1 

BLC  416 

3800 

3BFF 

16 

U5 

BLC  416 

3C00 

3FFF 

31 


5.2  NATIONAL  SEMICONDUCTOR  BLC  416  16K  PROM  BOARD 

The  National  Semiconductor  BLC  416  16K  PROM  expansion  board 
provides  sockets  for  up  to  16K  bytes  of  2708  EPROMs  (32K  bytes  for 
2716  EPROMs).  For  the  polling  program,  however,  only  12  of  the  16 
2708  EPROMs  required  for  program  storage  actually  reside  on  this 
board;  the  four  remaining  2708  EPROMs  reside  on  the  SBC  80/20. 

Table  5-1  summarizes  the  physical  locations  of  the  EPROM  program 
storage  for  execution  of  the  polling  software.  Switches  to  either 
enable  or  disable  various  memory  blocks  are  provided  on  this  board 
along  with  jumper-switch  selectable  addresses  for  each  4K  block  (8K 
when  used  with  the  2716  EPROMs).  This  allows  independent  selection 
of  base  addresses  of  individual  memory  blocks  on  4K  byte  boundaries 
Along  with  on-board  programming,  the  BLC  416  provides  multibus- 
compatible  address,  data,  and  command  signals.  Table  5-1  lists  the 
IC  locations  for  polling  program  storage  on  the  BLC  416  PROM  board. 


5.3  INTEL  450  16K  RAM  BOARD 

The  Intel  450  16K  RAM  is  a  multibus-compatible  board  which 
contains  16K  bytes  of  read/write  memory  and  uses  2107C  dynamic 
memory  components  with  on-board  refresh  circuitry  for  all  the 
dynamic  memory  elements.  Read/write  buffering,  which  also  resides 
on-board,  buffers  all  data  written  into  or  read  from  the  memory 
array  and  includes  a  jumper-selectable  starting  address  for  16K 
contiguous  addresses  at  16K  boundaries.  For  the  polling 
application,  the  lowest  RAM  aairess  is  set  at  4000H  and  the  highest 
RAM  address  is  7FFFH. 


5.4  I/O  AND  DISPLAY  CIRCUITS 

Figure  5-3  shows  the  additional  cabling  needed  in  the  Type  12 
CP  terminal  for  interconnecting  the  I/O  and  display  boards  of  the 
microcomputer  system  with  the  AFSATC0M  System.  No  changes  to 
existing  AFSATC0M  interfaces  were  made;  only  cabling  and  connector 
additions  were  employed.  Each  of  the  1/0  and  display  circuits  is 
detailed  below. 


5.4.1  Master  Clock  Generator 

Figure  5-4  shows  the  Master  Clock  Generator  circuit.  This 
circuit  provides  various  gated  75  Hz  clocks  and  associated  signals 
for  both  the  transmit  and  receive  functions  utilizing  a  75  Hz 
reference  input  from  one  of  two  timer  circuits  on  the  SBC  80/20. 
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5.4.2  External  I/O  Interface 

Figure  5-5  shows  the  external  I/O  interface  circuits.  This 
circuitry  provides  the  level  conversion  necessary  to  connect  the 
MIL-STD-188C  interfaces  found  in  the  AFSATCOM  Type  12  terminal  with 
the  complementary  metal-oxide  semiconductor  (CMOS)  and  transistor- 
transistor  logic  (TTL) -compatible  circuits  of  the  microcomputer 
system. 

5.4.3  RX  Character  Clock  Generator 

Figure  5-6  shows  the  RX  character  clock  generator  circuit. 

This  circuitry  provides  synchronous  receive  character  clock  for  the 
MPU  receive  data  interface  normally  supplied  by  the  AFSATCOM  Type  12 
terminal.  The  microcomputer  system  does  not  use  the  RX  character 
clock  signal  supplied  by  the  AFSATCOM  modem.  However,  for  proper 
AFSATCOM  operation,  this  clock  is  reconstituted  and  supplied  to  the 
MPU  input  circuitry. 


5.4.4  Memory  I/O  Address  Decoder/Acknowledge 

Figure  5-7  shows  the  memory  I/O  address  decoder/acknowledge 
circuit.  Its  primary  function  is  to  generate  select  signals  for 
memory  address  decoding  for  a  pair  of  Motorola  MC6852  serial  data 
adapter  ICs.  These  select  signals,  along  with  the  memory 
acknowledge  signal,  permit  the  ICs  to  be  utilized  as  if  they  were  an 
inherent  part  of  the  SBC  80/20  memory  addressing  space.  Read  or 
write  operations  to  these  devices  then  use  the  memory  addresses 
which  serve  these  two  ICs . 


5.4.5  TX  Character  Deletion 

The  TX  character  deletion  circuit,  shown  in  figure  5-8,  deletes 
two  redundant  message  characters  encountered  with  the  MC6852  IC  used 
in  conjunction  with  the  AFSATCOM  modem  transmit  interface.  Actual 
transmit  character  deletion  takes  place  before  the  start  of 
transmission  to  the  modem  and  occurs  only  during  the  time  interval 
when  the  AFSATCOM  modem  is  in  the  process  of  transmitting  its  own  "W 
U  SYN  SYN"  preamble. 


Figure  5-5  External  I/O  Interface  (Sheet  2) 


Figure  5~6  RX  Character  Clock  Generator  (Sheet  3) 


Memory  I/O  Address  Decoder/Acknowledge  (Shee 


5.4.6  Modem/MPU-to-SBC  Serial  Data  Adapter 

Figure  5-9  shows  the  modem/MPU-to-SBC  serial  data  adapter 
circuit.  Its  primary  function  is  to  transfer  serial  data  to/from 
the  AFSATCOM  modem  or  MPU  to/ from  the  SBC  80/20.  The  SBC  80/20 
reads  or  writes  these  data  as  if  they  were  located  in  a  memory 
address.  Selection  of  either  the  modem  I/O  or  MPU  I/O  takes  place 
via  a  register  select  line  with  read/write  operations  controlled 
separate ly . 

The  heart  of  this  circuitry  consists  of  a  pair  of  Motorola 
MC6852  programmable  synchronous  serial  data  adapter  (SSDA)  ICs. 

Each  provides  a  three-character  buffered  bi-directional  serial 
interface  for  synchronous  data  exchange.  The  MC6852  design 
incorporates  bus  interface  logic  to  allow  parallel  data  transfer 
over  the  SBC  80/20  bi-directional  parallel  data  bus.  The  actual 
configuration  of  the  SSDA  is  programmed  via  the  data  bus  using  the 
polling  program  system  initialization  software.  SSDA  internal 
programmable  control  registers  provide  word  length,  transmit, 
receive,  synchronization,  and  interrupt  controls.  Status,  timing, 
and  other  SSDA  control  lines  provide  additional  peripheral  or  modem 
functions . 


5.4.7  SBC  80/20  Interfaces 

Figure  5-10  summarizes  the  1/0  and  display  interfaces  within 
the  microcomputer  system.  Jumpers  and  parallel  terminations 
employed,  along  with  physical  board  modifications  for  the  SBC  80/20, 
are  indicated. 


5.4.8  Slot  Counter/Disp lay 

Figure  5-11  shows  the  slot  counter /display  circuit  interfaces 
to  the  SBC  80/20  and  the  I/O  circuits.  Slot  pulses  from  the 
AFSATCOM  synchronizer  are  used  to  increment  the  slot  display  on  a 
pair  of  Texas  Instruments  TIL  306  ICs  while  the  frame  pulse  from  the 
synchronizer  (or  a  manual  toggle  switch)  provides  a  reset  function 
back  to  zero  slot  indication.  A  pair  of  four-bit  binary  coded 
decimal  (BCD)  output  lines  (8  parallel  lines,  total)  to  one  of  the 
SBC  80/20  parallel  input  ports  is  used  by  the  polling  software  in 
calculating  the  current  AFSATCOM  slot.  As  implemented  in  the 
demonstration  system  software,  zero-slot  indications  signal  the  non- 
TDM  AFSATCOM  mode  and  non-zero  indications  signal  TDM  operation. 
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Figure  5~9  Modem/MPU-to-SBC  Serial  Data  Adapter  (Sheet  6) 
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5.4.9  RS-232  Serial  Interfaces 


Figure  5-12  summarizes  the  cable  interfaces  employed  with  the 
microcomputer  system  and  made  possible  by  serial  RS-232  interface 
circuitry  which  employs  a  software-programmable  8251  USART  IC  on  the 
SBC  80/20  card.  Shown  are  cable  interfaces  for  use  with  a  Bell  103J 
modem,  a  "NULL"  modem,  a  Lear  Siegler  ADM-3A  CRT  terminal,  and  a 
Texas  Instruments  Model  765  Intelligent  Terminal. 

When  the  polling  software  is  commanded  into  its  RS-232  mode, 
all  messages  normally  routed  to  the  AFSATCOM  MPU  interface  are 
rerouted  to  the  RS-232  serial  interface  port  at  a  300  b/s  rate 
(instead  of  75  b/s).  Messages  destined  for  transmission  to  the 
AFSATCOM  modem  or  COMSUP  commands  normally  originating  at  an 
AFSATCOM  ASR  device  may  now  be  entered  into  this  RS-232  interface. 
While  in  this  mode,  the  AFSATCOM  ASR  may  still  be  used  for  all 
transmitting  functions;  however  normal  reception  from  the  OW  (or 
NB-1)  channel  will  be  diverted  to  this  RS-232  port.  When  not  in  the 
RS-232  mode,  normal  NB  interfaces  to  the  MPU  are  utilized. 


5.5  MODULAR  RACK  HARDWARE  FEATURES 

When  the  microcomputer  rack  assembly  is  installed  in  the  Type 
12  terminal,  two  multi-pole  bypass  switches  mounted  on  the  front 
panel  can  disengage  the  microcomputer  system  from  the  MPU,  NB  modem, 
and  synchronizer  interfaces  without  physical  removal  of  connectors. 
Connector  terminations  on  the  rear  of  the  rack  provide  convenient 
access  for  cables  to  the  AFSATCOM  Type  12  CP  terminal. 

The  modular  rack  assembly  is  designed  for  ease  in  removing  all 
mounted  components  and  subsystems.  Test  points  mounted  on  the  front 
panel  of  the  rack  also  provide  a  convenient  access  to  all  interfaces 
for  ease  in  trouble-shooting.  Front  panel  fuses  on  the  rack  serve 
to  protect  the  various  power  supplies  in  the  power  supply  subsystem. 
An  on-off  power  line  switch  and  a  line  voltage  indicator  are  below 
these  fuses . 

Finally,  a  slot  display  reset  switch  and  eight  BCD  slot 
selection  switches  are  also  front-panel  mounted  for  convenient 
control  of  polling  test  functions  related  to  TDM  and  non-TDM  modes. 
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SECTION  6 


MICROCOMPUTER  SOFTWARE 


Figure  6-1  shows  the  major  elements  of  the  microcomputer 
facility  at  MITRE-Bedford  which  was  used  for  overall  software 
development  for  the  polling  improvement  project.  The  Tektronix 
8002A  software  development  system  and  the  MITRE  Time  Sharing  Option 
(TSO)  system  assets  related  to  polling  software  development  are 
described  below. 

The  microcomputer  software  for  the  improved  polling 
demonstration  capability  was  written  in  PL/M-80  high-level  language 
on  TSO.  The  PL/M-80  source  coding,  which  is  essentially  self- 
documenting,  takes  advantage  of  modular  interrupt-free,  structured 
programming  techniques  and  attempts  to  minimize  (but  not  entirely 
eliminate)  interactions  between  the  various  modular  segments  of  the 
overall  program. 

After  appropriate  compilation  and  debug  on  TSO,  followed  by 
downloading  to  the  Tektronix  8002A  microprocessor  laboratory, 
executable  code  was  installed  in  the  microcomputer  system  using  2708 
EPROM  non-volatile  memory  ICs.  Execution  of  this  code  in  the 
microcomputer  system  provides  the  processing  functions  needed  to 
satisfy  the  polling  enhancements  described  in  section  4. 


6.1  FLOW  CHARTS 

The  polling  software  for  the  microcomputer  system  is 
functionally  described  by  the  flow  chart  of  figure  6-2.  Following 
power  turn-on  of  the  microcomputer  system,  the  software  executes  the 
Initialization  Sequence,  followed  by  the  main  program  loop  starting 
at  the  Slot  Calculation  Algorithm  and  ending  at  the  TX  Output 
Algorithm.  Return  to  the  Initialization  Sequence  is  also  possible 
by  means  of  a  software  re-initialization  COMSUP  command.  Unless  the 
software  is  re-initialized,  however,  normal  program  execution 
continues  in  this  endless  loop.  The  time -to -comp let  ion  of  a  single 
cycle  within  this  loop  is  typically  less  than  a  single  character 
interval  at  the  AFSATCOM  75  b/s  rate.  Coupled  with  this  capability 
is  a  three-character  buffer  in  the  serial  synchronous  MPU  and  modem 
interfaces  employed  for  use  with  the  AFSATCOM  hardware  (see 
subsection  5.4.6)  which  avoids  loss  of  data  during  program  execution 
in  an  interrupt-free  manner. 
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gure  6-1  Microcomputer  Development  Facility 


Figure  6-2  Polling  Software  Program  Flowchart 


Table  6-1  describes  the  various  program  modules  along  with 
their  major  performance  characteristics  during  program  execution. 
The  polling  algorithm  is  the  heart  of  the  overall  polling  program 
software;  a  more  detailed  flow  chart  of  this  polling  algorithm  is 
provided  in  figure  6-3. 


6.2  PL/M-80  SOURCE  CODE  AND  MEMORY  ALLOCATIONS 

Table  6-2  contains  the  improved  polling  software  symbol  table 
and  memory  map  which  identifies  RAM  and  ROM  (EPROM)  label  locations, 
variables,  and  constants  used  throughout  the  software.  This  table 
is  consistent  with  the  program  module  PL/M-80  labels  shown  in  table 
6-1  and  the  address  locations  in  table  5-1  so  that  the  start  of  each 
major  program  module  may  be  readily  identified.  This  also  allows 
ease  in  modifying  or  upgrading  existing  software  by  appropriate 
EPROM  replacement  within  the  microcomputer  system.  Appendix  B 
contains  the  actual  PL/M-80  source  code  which  was  written  on  TSO. 


6.3  MITRE  TSO  SYSTEM  PL/M-80  SUPPORT 

PL/M-80  assets  available  on  TSO  which  were  utilized  for  the 
microcomputer  software  development  are  described  below. 


6.3.1  PL/M-80  High  Level  Language 

PL/M-80  is  an  advanced  high  level  programming  language 
available  on  the  MITRE  TSO  system.  Specifically  designed  to 
simplify  the  job  of  system  programming  for  the  Intel  8080  8-bit 
microprocessor,  it  provides  a  very  effective  software  development 
and  maintenance  tool,  well  suited  to  the  requirements  of  the 
microcomputer  system  designer.  PL/M-80  is  also  easy  to  learn  and 
facilitates  rapid  program  development  and  debugging  since  it  is  an 
algorithmic  language  in  which  the  program  consists  of  a  sequence  of 
declarations  and  executable  statements  naturally  expressing  the 
algorithm  to  be  performed.  Thus,  the  programmer  is  free  to 
concentrate  on  system  development  through  use  of  modern  structured 
programming  techniques  at  a  high  level,  rather  than  dealing  with 
assembly  language  details  (such  as  register  allocation,  etc.).  For 
a  complete  description  of  PL/M-80  see  reference  3. 


6.3.2  PL/M-80  2-Pass  Cross-Compiler 

The  8080  PL/M  cross-compiler  consists  of  two  distinct  programs 
which  must  be  executed  consecutively  to  perform  a  complete 
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Program  Software  Module  Description 


depending  on  which  is  activated;  shifts  down  internal 
storage  buffer  upon  completion  of  message  transmittal 
enables  clock  output  to  MPU  on  start  of  message 
transmittal  and  disables  it  on  completion. 


a  -c  — 
—  o  — 


i 

a>  t) 

c  c 

—  in  03 
4->  03  E 
*-*  x:  E 

03  O 

m  a)  u 
cn 

>»  03  -M 


in  in  o 

JZ  4  4- 
■m  qj 


in  «— 

X  — 

o 

03  0) 

c  o 

c 

o 

3  _Q 

— 

4- 

o  E  — 

0)  03 

o 

03 

03 

4-» 

<M  03 

u 

C  — 

- —  4 

03 

E 

— 

3 

03  — 

y-  0 

<n 

0)  03  03 

03 

sz 

£ 

03 

a 

a. 

*-»  — 

o  y- 

4-< 

=3  W 

a;  x: 

u 

o 

c 

X 

in  03 

in 

CT  03  03 

cn  o 

u 

0) 

•— 

i/it/)  Q) 

3  +J  4-» 
4-j  in 
<T3  03  •* 

+-»  4-»  5 


u  03  4- 
03—4- 
4~»  _Q  03 
O  03  > 
03—0 

4  — 

03  (0  i- 
-C  >  03 
O  (0U- 
4- 

4  4-  =3 

03  —  -O 

4- 

4-4  4 

3  03  O 


03  ■ —  4 

ip  a  o 
e  c 

03  O  03 
CO  — 


0) 

in  in  in 
<n  in  u 
0)  a>  O 

E  »-  u 
“O  i- 
03  "O  03 

a  os 
>*  m 

•m  4-*  «n 

i  u  <u 

T3  0)  U 

C  4-  -o 

fU  l-  X) 

fO  03 

u 

o  -o 

u  w-  c 

O  03 

4-> 

U  4-»  03 

0)  a  -g 


4- 

-D 

4-> 

4- 

03 

.  >■ 

u 

o 

n 

4 

“a 

L.  4) 

03 

O 

“O 

03 

.  * 

• 

4 

03 

E 

t 

a. 

c 

• 

Q.  4-» 

F— 

03 

■  R 

■U 

03 

m 

03 

•o 

in 

o 

O 

CL 

03 

03 

o  c 

3 

> 

-O 

3 

u 

+-> 

“O 

* — 

03 

03 

o 

03 

in 

03 

0J 

E 

* 

U 

u 

“O 

•— 

03 

a 

03 

in 

C 

4- 

> 

CD 

4 

3 

CL 

03 

CL 

o 

03 

4-» 

c 

-C 

03 

03 

•— 

03 

4 

o 

> 

o 

0 

4~ 

CL  O 

ac 

O 

0) 

•— 

u 

4-» 

4-» 

03 

in 

0 

in 

4* 

4-* 

U 

V. 

03  ^ 

03 

> 

in 

3 

O 

in 

4- 

0) 

4 

1 

03 

— 

0) 

4 

— 

03 

in 

•*> 

“O 

a. 

03 

03 

-u 

0J 

X) 

03 

in 

4-* 

in 

>  0)  m 
-  £  3 
03  O  4J 
O  w  03 
03  03  W 
4  4-  in 


m  03  > 
Js C  "C3 
o  —  in 
<U  —  0) 
£  'll- 
O  >4- 


—  O 

0)  — 

X)  -J 

0)  _J 

-J  o 

a. 


Q 

< 

OC  «-  *-  CM  — 

T— 

O 

o  ar  3  3  cc 

UJ 

-J 

cc  o  o  o  o 

cn 

Q- 

a:  o:  -i  J  cc 

O 

r> 

UJ  CC  U-  li-  cc 

a. 

1-0 

LU  UJ  CC  OC  Ui 

s: 

X 

o  cc  uj  uj  oc 

o 

O 

oo>>o 

o 

o 

X  <  O  O  H 

» 

>**■ v 

—  E 

CM 

CM 

c  sc 

cr\ 

fA 

CJ3  *-J 

CM 

CM 

o  — 

1 

1 

O  4- 

CD 

to 

CO 

E 

03  0 

in 

4 

cc 

03 

4  OC 

4-»  -C 

CC  03 

t: 

03 

\ 

in 

03  ^ 

3  4-» 

*•*— 

4-1 

ID 

£ 

Q.  — 

a.  < 

O- 

4-1 

O- 

4-»  0- 

C  4 

Z3 

3 

3? 

X 

03  X 

—  0 

in  c 

CO 

E 

o 

E 

o> 

r  o 

X 

u 

O 

u 

4-  O 

X  — 

o  — 

o 

O 

K 

4 

o  *— 

cc  < 

CJ  *-> 

o 

u. 

**w' 

Ui 

li-  W ' 

r 


Figure  6-3  Polling  Algorithm  Flowchart 


Table  6-2 


Symbol  Table  and  Memory  Map 


Name 

Location  (Hex) 

Name 

Location  (H 

ADRl 

4638 

CLK  3 

4662 

ADR2 

4639 

CLKCNT 

5792 

ADR3 

463A 

CLKCNT1 

4664 

ADRCHANGE 

1B80 

CLKCNT 2 

4666 

ADRERR0R1 

1D67 

CLKCNT 3 

4668 

ADRERRORHDR 

037C 

CLKP 

579A 

AUTOPOLLRESTART 

0611 

CLKP1 

465E 

AUTOREPOLLFLAC 

4684 

CLKP  2 

4661 

BUFFERDELAY 

579C 

CLKP  3 

4663 

BUFFERDELAY1 

466A 

CMODE 

6661 

CC 

6668 

CMODLCANCEL 

0D99 

CC1 

5760 

CMODECANCEL1 

ODFC 

CCPRESENT 

4658 

COMP OS El 

17FF 

CC1PRESENT 

465A 

COMSUPLOADl 

296F 

CCTEST 

0B25 

CS 

5775 

CHAR 

5776 

CS1 

4688 

CHARI 

4689 

CS3 

464A 

CHAR3T 

0998 

CS4 

464B 

CHAR4T 

09B1 

CSDATAPOINTER 

5764 

CHAR4T1 

166B 

CS1DATAPOINTER 

576C 

CHAR5T 

09CA 

CSTEST 

0B13 

CHARSTORE 

5D64 

DELAY 

579B 

CHARSTORE1 

468E 

DELAY 1 

465F 

CHECKINDELETE 

247A 

DELAYCAL 

1D3A 

L.HECK  1NMODESET1 

28D5 

DELAYROUTINE 

1442 

CINUMTEST 

OD76 

DELAYROUTINEl 

03D7 

CLK 

5799 

EATMSG1 

1773 

CLK1 

465D 

EATMSGFLAG1 

465C 

CLK  2 

4660 

EATMSGSET 

1AF3 

Table  6-2  (continued) 


Name 

Locat  i  on  ^HexJ 

EDACFLAG 

4656 

EDACMODESET 

1B4A 

EDACROUTINE 

0A33 

ENC 

5777 

ENCRYPT 

0937 

ENCTEST 

0904 

ENDLOAD 

3833 

EOMTEST 

13E0 

EOMTEST1 

3D3F 

ERRORHDR 

039A 

GC 

08BD 

GC1 

1614 

GCIPOINTER 

578C 

GCIRESET 

2960 

GCI STORE 

5C23 

GPOLLBUILD1 

3C92 

GT1 

2278 

GTABLEBUILD1 

3548 

CTABLEDUMP1 

34C1 

GTDHEADER 

0362 

I 

6662 

11 

575A 

INITIALMSG 

0461 

IPLTEST 

1915 

IPOLL1 

04BF 

IPOLL11 

087C 

I POLL 101 

15A8 

IPOLL1011 

15D4 

INPUT3DATAPOINTER 

5766 

Name  _Locat_mn  (Hex) 


INPUT5  DATAPOINTER 

5768 

INPUT103DATAP0INTER 

576E 

I NPUT 10  5DATAP0INTER 

5770 

J 

5762 

LCT 

09E0 

LCT1 

1685 

L  TNECOUNT 

468d 

LOADADR 

37A1 

MEMORY 

7400 

MJF 

5778 

MJT1 

09  3E 

MJT2 

0AC7 

MODE 

5779 

MODEERROR1 

2A08 

MODEMIOCTL1POINTER 

4632 

MODEMIOCTL2POINTER 

4634 

MODEMOUTPUT  COMPOSE 1 

1700 

MODEMOUTPUTCOMPOSE2 

1783 

MPUCINUMTEST1 

2824 

MPUI0CTL1P0INTER 

462E 

MPUI0CTL2P0TNTER 

4630 

MPUTABLEBUILD 

0E58 

MSGCOUNT 

6534 

MSGCOUNTl 

4E5E 

MSGDELAY 

579E 

MSGOVERDELAY 

4672 

N 

577C 

NC 

5786 

NC1HEADER 

02CD 

Table  6-2  (continued) 


Name 

Location  (Hex) 

Name 

Location  (Hex) 

NCIPOINTER 

5790 

OPOLL1 

13BB 

NCIRESET 

2945 

0P0LL101 

3D1A 

NCI STORE 

5AA2 

OUTl 

468A 

NCITEST 

0CC8 

OUTCHAR 

148C 

NOCOMS UPLOAD 1 

29FD 

OUT CHARI 

3EA7 

NONTDMDELAY1 

3DF6 

OUT COUNT 

6666 

NONTDMDELAYSET 

1CD2 

OUT FLAG 1 

1680 

NONTDMMSGDELAY1 

466C 

OUTPUTCOMPOSE 

16CF 

NONTDMPOLL 

0622 

OUTPUT 1DATAP01 NTER 

576A 

NPOLLBUILDl 

3C12 

OUTPUT 101DATAPOINTER 

5772 

NRBHEADER 

02E1 

OUTTABLE 

666B 

NRBLOAD 

0F9A 

0UTTABLE1 

4F8A 

NT  1 

2201 

OUTTABLEBUILD 

0E64 

NTABLEBUILD1 

339B 

OUTTABLE 1STATUSTEST 

05E9 

NTABLEDUMP1 

3314 

OVERFLOWl 

2847 

NTDHEADER 

0343 

OVERFLOW2 

284C 

NTDMDELAYH 

467C 

OVERFLOWHDR 

03D9 

NTDMDELAYL 

467E 

PCIHEADER 

0241 

NTDMEDACTABLE 

464F 

PCIPOINTER 

5784 

NTDMPOLLI NTERRUPTFLAG 

4686 

PCI  RESET 

292D 

NTTHEADER 

02F5 

PCI STORE 

57AO 

NTT LOAD 

1278 

PCITEST 

OB  4  3 

NTTLOAD1 

200A 

POLLDUMPBUILD1 

372F 

NTTLOADEND 

1348 

POL1.DUMPHDR 

03F4 

NTTRl 

2CEB 

POLLFLAG 

4683 

NUMGCI 

577E 

POLLINGMODETEST 

05FF 

riuinci 

578E 

POLL INTERRUPT 

1C5B 

NUMPCI 

5732 

POLLMODE 

1BB4 

NUMRCI 

5783 

POLLMODEERROR 

0550 

57 


Table  6-2  (continued) 


r 


4 


f 


i- 

> 


n 

h 


t 


Name 

Location  (Hex) 

Name 

Locat ion  (Hex 

POLLMSGCOMPLETE 

0580 

PTABLEBUILD1 

3042 

POLLMSCCOUNT 

464C 

PTABLEDUMP1 

2FBB 

POLLMSGOVER 

0410 

PT1 COUNT 1 

73FE 

POLLOVERTEST 

0558 

PTDHEADER 

030A 

POLLPOINTER1 

73FC 

PTTHEADER 

02E5 

POLLS LOT 1H 

463B 

PTTLOAD 

0FF3 

POLLSLOT2H 

46  3C 

PTTLOAD1 

1E3D 

POLLSLOT  3H 

463D 

PTTLOADEND 

10C2 

POLLSLOT4H 

463E 

PTTRl 

2B45 

POLLSLOT 5H 

463F 

QUIT 

3FAB 

POLLSLOT 6H 

4640 

R Cl HEADER 

02C9 

POLLSLOT 1L 

4641 

RCIPOINTER 

578A 

POLLSLOT 2L 

4642 

RC I RESET 

29  3E 

POLLSLOT 3L 

4643 

RC I STORE 

5921 

POLLSLOT 4L 

4644 

RCITEST 

0C05 

POLLSLOT 5L 

4645 

REPOLLFLAGCOUNT 

4657 

POLLSLOT 6L 

4646 

RF.POLLTEST 

0572 

POLLTABLE1 

6E3B 

RETRANSM1TFLAG 

4676 

POLLTABLEBUT  LD1 

3B34 

RF.TRANSMITFLAGSET 

OAAD 

POLLTABLEDUMP1 

36B1 

RP0LLBUILD1 

3B96 

POLLTABLEDUMP2 

366E 

RRBHEADER 

02  DD 

POLLTABLETX 

3A3E 

RRBLOAD 

0F41 

POLLT  ABLETXELAG 

4685 

RS232FLAG 

4637 

POLLTTRl 

2DBE 

RS232GC1 

16ID 

POLLX’*IT 

0530 

RS232INPUT1 

15B9 

PRBHEADER 

02D1 

RS232MODESET 

1ABD 

PRBLOAD 

0EE8 

RS2320UTCHAR 

14B1 

PROGRAMSTART 

0007 

RS232SPACETEST 

1427 

PT1 

2114 

RT1 

218A 

58 


Table  6-2  (concluded) 


Name 

Location  (Hex) 

Name  Locati 

ion  (Hex) 

RTABLEBUILDl 

31EE 

TCLK 

466F 

RTABLEDUMP1 

3167 

TCLK1 

4673 

RTDHEADER 

0327 

TCLKCNT 

4671 

RTTHEADER 

02F1 

TCLKCNT1 

4675 

RTTLOAD 

1135 

TCLKP 

4670 

RTTLOADl 

1F23 

TCLKP1 

4674 

RTTLOADEND 

1205 

TDMDELAYROUTINE1 

3DB3 

RTTR1 

2C18 

TDMFLAG 

4682 

RXBUSYOVERRlDEl 

3E60 

TDMPOLL 

0739 

SHIFT DOWN 

14C8 

TOMPOLLINTERRUPTFLAG 

4687 

SHIFTDOWN1 

3EC2 

TDMPOLLTXSLOT 

4677 

SLOT 

467A 

TDMPOLLTXSLOTINITIAL 

4649 

SLOTCOUNT 

467B 

TFRERROR1 

2E7B 

SLOTGUARDTIME 

4680 

TFRERRORHDR 

03B8 

SLOTH 

4678 

TOTALNUMCI 

5780 

SLOTL 

4679 

TTLOADF.ND1 

20F1 

SLOTREASSIGN 

19AD 

TTRl 

2A94 

SPACE 

577B 

TXSLOTINITIALH 

4647 

SPACE1 

468C 

TXSLOTINITIALL 

4648 

SPACETEST 

1401 

WAITING 

577A 

SPACETESTl 

03D5 

WAITING1 

468B 

ST 

0916 

WW 

08a7 

STARINSERT 

OB  1C 

XX 

089B 

STARTUPMSG 

04  2E 

YY 

15F2 

TBLDUMP1 

2EE1 

17. 

15FE 

TC 

6664 

TCl 

575C 

TCINITIAL 

5794 

TC1INITIAL 

5796 
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compilation  of  a  PL/M  source  program.  The  two  programs  are  known  as 
Pass  1  (PL/M-81)  and  Pass  2  (PL/M-82)  of  the  PL/M  compiler.  They 
are  written  in  ANSI  standard  Fortran  IV  and  are  installed  on  the 
MITRE  TSO  system. 

The  first  pass  of  the  compiler  reads  a  PL/M  source  program  and 
converts  it  to  an  intermediate  form  on  work  files.  As  an  option,  a 
listing  of  the  input  source  program  may  be  obtained  during  this 
pass.  Errors  in  program  syntax  are  detected  at  this  stage  and 
appropriate  error  messages  are  sent  to  the  list  file. 

The  second  pass  of  the  PL/M  compiler  processes  the  intermediate 
files  created  by  Pass  1  and  generates  machine  code.  This  machine 
code,  which  can  be  in  either  BNPF  or  hex  format,  may  be  loaded  and 
executed  on  the  SBC  80/20  microcomputer,  on  the  Tektronix  8002A,  or 
simulated  using  IN'TERP/80,  a  cross-simulator  of  the  8080  micro¬ 
processor  unit.  It  may  also  be  used  for  programming  ROMs.  Pass  2 
of  the  compilation  process  can  produce  a  symbol  table  and  mnemonic 
listing  of  the  generated  machine  code.  Errors  detected  during  this 
phase  will  be  reported  in  the  list  file  which  is  produced. 

Figure  6-4  illustrates  the  overall  file  structure  and  flow  of 
program  execution  of  the  PL/M  cross-compiler  available  at  MITRE. 

For  a  complete  description  of  the  PL/M-80  2-pass  cross-compiler  see 
reference  4. 

The  run-time  organization  of  the  memory  storage  allocation  for 
a  compiled  PL/M-80  object  program  is  shown  in  figure  6-5.  Memory  is 
allocated  in  three  sections: 

1.  Instruction  Storage  Area  (ISA). 

2.  Variable  Storage  Area  (VSA) 

3.  Free  Storage  Area  (FSA) 

The  ISA  is  occupied  by  the  machine  code  generated  by  the  PL/M 
source  and  variables  declared  in  DATA  declarations. 

The  VSA  is  located  above  the  ISA,  and  contains  (in  order  of 
decreasing  address): 

1.  Variables,  other  than  DATA  variables,  declared  in  the 
PL/M  source.  They  are  arranged  in  order  of  declaration. 
ADDRESS  variables  are  not  aligned. 

2.  Compiler  generated  temporaries  (i.e.,  workspace  used  in 
the  object  program,  but  not  explicitly  declared). 
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Figure  6-4  File  Structure  and  Flow  of  Program 

Execution  on  8080  PL/M  Cross  Compiler 
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Figure  6-5  Run-Time  Storage  Organization  of 
Memory  Storage  Allocation 
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3. 


The  stack.  The  size  of  the  stack  area  is  determined  by 
the  compiler,  unless  explicit  overrides  are  used. 

The  compiler  will  normally  locate  the  VSA  directly  above  the 
ISA.  However,  the  compiler  user  may  specify  the  first  page  of 
memory  of  the  VSA  explicitly.  (A  page  of  memory  contains  256 
bytes.)  This  may  be  used,  for  example,  to  ensure  that  the  VSA  is 
located  in  RAM  for  a  system  that  has  both  RAM  and  ROM. 

FSA  is  the  area  of  memory  above  the  VSA.  The  PL/M  identifier 
MEMORY  may  be  used  to  reference  the  FSA. 


6.3.3  INTERP/80  for  the  8080  Microprocessor 

An  INTERP/80  program  available  on  the  MITRE  TSO  system  provides 
a  software  simulation  of  the  Intel  8080  CPU,  along  with  "free  form" 
execution  monitoring  commands  to  aid  in  system  software  development 
for  8080-based  microcomputers. 

INTERP/80  accepts  machine  code  produced  by  the  PL/M  8080  cross- 
compiler,  along  with  execution  commands  from  a  time-sharing 
terminal.  The  execution  commands  allow  manipulation  of  the 
simulated  system  memory  and  the  8080  CPU  registers.  In  addition, 
operation  and  instruction  break-points  may  be  set  to  stop  execution 
at  crucial  points  in  the  program.  Tracing  features  are  available 
which  allow  the  CPU  operation  to  be  monitored.  INTERP/80  also 
provides  symbolic  reference  to  memory  storage  locations  as  well  as 
numeric  reference  in  various  number  bases.  Some  of  the  commands 
available  in  INTERP/80  are  presented  in  table  6-3.  For  a  complete 
description  of  INTERP/80,  see  reference  5. 


6.4  TEKTRONIX  8002A  SOFTWARE  DEVELOPMENT  SYSTEM 

The  heart  of  the  Tektronix  software  development  system  is  the 
Tektronix  8002A  microprocessor  laboratory.  The  system  architecture 
of  the  Tektronix  8002A  centers  around  three  microprocessors 
incorporated  into  circuit  card  modules.  The  system  processor,  using 
TEKD0S  operating  system  commands,  controls  system  activity  such  as 
organizing,  storing,  and  retrieving  system  and  user  programs  on  the 
disc  drives,  executing  the  text  and  debug  programs,  supervising  the 
emulator  processor  through  separate  debug  hardware,  and  directing 
all  1/0  activity  for  various  system  peripherals  such  as  the  flexible 
disc  unit,  the  system  terminal,  and  a  line  printer.  See  figure  6-6 
which  shows  the  8002A  microprocessor  laboratory  used  in  conjunction 
with  the  Intel  SBC  80/20  single  board  computer. 
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Table  6-3 


INTERP/80  Commands 


Command  Function 

LOAD  Causes  symbol  tables  and  code  to  be  loded  into 

the  simulated  MCS-80  memory. 

GO  Starts  execution  of  the  loaded  8080  code. 

(NO)  INTER  Simulates  an  8080  interrupt. 

TIME  Sets  and  displays  the  simulated  8080  cycle  counter. 

CYCLE  Allows  the  simulated  CPU  to  be  stopped  after  a  given 

number  of  cycles. 

(NO)  TRACE  Enables  tracing  feature  when  particular  portions 
of  the  program  are  executed. 

(NO)  REFER  Causes  the  CPU  simulation  to  stop  when 

a  particular  storage  location  is  referenced. 

(NO)  ALTER  Causes  the  CPU  simulation  to  stop  when  the  contents 
of  a  particular  memory  location  are  altered. 

CONV  Displays  the  values  of  numbers  coverted  to  the 

various  number  bases. 

DISPLAY  Displays  memory  locations,  CPU  registers,  symbolic 

locations,  and  I/O  ports. 

SET  Allows  the  values  of  memory  locations,  CPU  registers, 

and  1/0  ports  to  be  altered. 

BASE  Allows  the  default  number  base  used  for  output  to  be 

changed . 

(NO)  INPUT  Controls  simulated  8080  input  ports. 

(NO)  OUTPUT  Controls  simulated  8080  output  ports. 

PUNCH  Causes  output  of  machine  code  in  BPNF  or  hexadecimal 

format . 

END  Terminates  execution  of  an  8080  program. 
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The  emulator  processor,  a  system  option  for  each  microprocessor 
the  8002A  can  support,  is  controlled  by  the  system  processor.  Via 
the  debug  module  hardware,  the  emulator  processor  performs  two 
functions.  In  emulation  mode  0,  this  processor  executes  the  user 
program  so  that  run-time  and  logic  errors  can  be  detected  before 
actual  software/hardware  integration  begins.  In  emulation  modes  1 
and  2,  the  emulator  processor,  operating  in  conjunction  with  the 
prototype  control  probe,  provides  the  capabilities  for  complete 
software/hardware  debugging  and  integration.  The  control  probe 
plugs  into  the  microprocessor  socket  on  the  prototype  circuit  board, 
thereby  enabling  the  emulator  processor  to  take  the  place  of  the 
actual  microprocessor  that  ultimately  is  installed  in  the  user 
hardware.  In  emulation  mode  1,  the  emulator  processor  executes  the 
user  program  under  supervision  of  the  debugging  system  in  program 
memory  and  memory  mapped  to  the  prototype.  I/O  and  clock  signals 
are  also  available  to  the  user  hardware.  In  emulation  mode  2,  the 
emulator  processor  executes  the  user  program  fully  in  the  prototype 
hardware  with  all  memory,  I/O,  and  clocking  functions  made 
available.  The  debug  system,  however,  still  maintains  control  of 
the  emulator  processor. 

The  third  microprocessor,  the  assembler,  runs  the  relocatable 
macro  assembly  program  when  the  TEKDOS  assembly  command  is  invoked. 
Upon  completion  of  assembly,  assembled  object  code  is  stored  on  disc 
memory  in  hexadecimal  format.  The  assembler  performs  its  function 
for  each  separate  microprocessor  supported  by  the  8002A  with  the 
installation  of  the  appropriate  assembler  software. 

Other  circuit  card  modules  within  the  8002A  provide  supporting 
software  and  hardware  functions.  The  system  memory  contains  16K 
bytes  of  dynamic  RAM  and  a  bootstrap  loader  resident  in  256  bytes  of 
ROM  and  is  accessed  only  by  the  system  processor.  The  system  memory 
is  automatically  loaded  with  the  resident  portions  of  TEKDOS  each 
time  the  8002A  system  is  powered  up.  It  also  provides  buffer  space 
for  all  I/O  activities. 

A  maximum  of  64K  bytes  of  program  memory  resides  on  separate 
circuit-card  modules  within  the  8002A  mainframe  and  can  be  accessed 
by  the  system  processor  or  the  emulator  processor.  Program  memory 
is  used  by  the  system  processor  as  a  text  buffer  during  text  editing 
sessions  and  is  available  during  user  program  execution  as  a  storage 
area  in  conjunction  with  the  emulator  processor.  The  feature  of 
separate  system/program  memory  structure  allows  the  system  memory  to 
maintain  its  integrity  at  all  times  should  the  program  crash  for  any 
reason,  thus  allowing  the  operating  system  software  to  remain 
intact. 
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System  components  within  the  8002A  are  joined  by  a  common 
system  bus  which  is  divided  into  a  system  side  and  a  program  side. 
The  debug  module  provides  the  hardware  interface  between  the  system 
and  emulator  processors  while  the  system  communications  module 
provides  EIA  standard  RS-232C  interfaces  for  all  peripheral  devices 
except  the  dual  flexible  disc  drive  unit  and  the  associated  system 
terminal . 

Storage  of  about  660K  bytes  on  dual  disc  drives  (330K  bytes  per 
single-sided  disc)  is  available  as  the  mass  storage  medium  for  the 
8002A.  The  drive  unit  communicates  directly  with  the  system 
processor  module  through  an  interconnecting  cable. 

The  real-time  trace  module,  an  eight-clip  test  probe,  and  the 
data  acquisition  interface  panel  make  up  the  real-time  prototype 
analyzer  of  the  8002A.  The  module  provides  a  high-speed  buffer 
memory  capable  of  retaining  128  data  words  in  a  dynamic  fashion. 

Each  acquired  word,  composed  of  48  bits,  contains  16  address  bits, 
eight  of  16  bits  from  the  system  bus,  and  eight  data  bits  from  the 
test  probe.  An  additional  eight  bits  identify  the  type  of  cycle 
such  as  read,  write,  I/O  memory,  or  instruction  fetch.  The  module 
also  contains  the  controlling  logic  circuitry  for  utilizing  the 
analyzer's  command  repertoire.  The  test  probe  itself  is  an  eight- 
pin,  high- input  impedance  device  which  may  be  connected  during 
emulation  modes  1  and  2  to  any  locations  on  the  user  prototype 
hardware.  Fixed  TTL  or  variable  threshold  levels  are  switch- 
selectable  on  the  interface  unit,  with  acquired  data  buffered  by  the 
probe  and  then  fed  to  the  real-time  trace  module  via  the  cable 
interface.  Data  acquired  by  the  trace  module  and  the  eight  channels 
of  externally  acquired  data  are  thus  subject  to  the  same  TEKDOS 
command  set  of  the  8002A.  Finally,  two  BNC  connectors  on  the  data 
acquisition  interface  can  also  be  used  to  trigger  a  logic  analyzer 
or  scope,  thereby  allowing  greater  trouble-shooting  capability  of 
prototype  circuitry  during  program  execution  while  maintaining 
debugging  control  through  the  8002A. 

The  PROM  programmer  within  the  8002A  can  support  two  PROM 
programming  options,  one  for  1702A  PROMs  and  one  for  2704/2708 
PROMs.  Each  option  consists  of  the  appropriate  plug-in  circuit  card 
and  PROM  programming  software  to  supervise  and  control  the  transfer 
of  user  programs  between  program  memory  and  the  PROM  chip. 

Interface  to  the  PROM  programmer  is  on  the  front  panel  of  the  8002A 
system  mainframe,  via  zero-insertion-force  sockets. 

The  ability  of  the  8002A  to  communicate  with  external  host 
processors  provides  the  flexibility  of  writing  software  externally 
to  the  8002A  and  downloading  either  source  program  or  source  code. 


67 


This  is  particularly  useful  when  high-level  language  support  is 
separately  available,  as  is  the  case  on  the  MITRE  TSO  system. 

In  summary,  the  8002A  is  a  complete  design  tool  for  software 
development  to  eventual  software/hardware  integration.  Its  powerful 
operating  system  software,  TEKDOS,  performs  all  utility  routines, 
maintains  the  debugging  system,  provides  emulation  support  routines, 
and  controls  the  PROM  programmer.  The  8002A  can  support  a  variety 
of  currently  available  8-bit  and  16-bit  microprocessors  and  offers 
full  prototype  test  and  emulation  capability  at  three  progressive 
levels . 
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SECTION  7 


CONCLUSIONS /RECOMMENDATIONS 


The  results  of  the  improved  polling  project  described  lead  to  the 
following  conclusions  and  recommendations: 

•  Microcomputer  interfacing  techniques  offer  a  powerful  technique 
for  simulating  new  AFSATCOM  satellite  terminal  polling  perfor¬ 
mance  capabilities. 

•  This  successful  microcomputer  application  was  attributable  to 
availability  and  acquisition  (where  necessary)  of  comprehensive 
computer  hardware  facilities  and  high-level  language  software 
tools  designed  to  support  personnel  having  little  or  no  back¬ 
ground  in  microprocessor-based  techniques.  Without  these  facil¬ 
ities  and  tools  several  additional  personnel,  particularly  ex¬ 
perienced  programmers,  would  have  been  required. 

•  Polling  improvements  using  existing  AFSATCOM  terminal  interfaces 
via  MPU  software-only  changes  appear  to  offer  significant  new  en¬ 
hancements  to  a  large  segment  of  the  AFSATCOM  user  community. 

•  Providing  an  on-line  access  to  demonstrate  these  potential  capa¬ 
bilities  to  AFSATCOM  users  without  the  need  to  modify  either 
AFSATCOM  hardware  or  software  has  proven  to  be  cost-effective. 
This  concept  should  be  pursued  in  accordance  with  the  follow-on 
demonstration  objectives/plans  described  below. 

•  The  microcomputer  concept  and  approach  described  appears  to  also 
lend  itself  to  other  similar  applications.  The  fully  established 
facilities  and  proven  software  support  tools  for  AFSATCOM  at 
'■iITRE-Bcdford  should  be  used  in  the  assessment  of  future 
terminal  upgrades. 

•  The  feasibility  of  serially  adding  microcomputer  hardware  to  an 
existing  AFSATCOM  terminal  for  achieving  growth  capability  has 
been  demonstrated.  With  further  development  and  suitable  quali¬ 
fication  of  this  additional  hardware,  modifying  existing  MPU 
software  may  be  unnecessary. 

The  microcomputer  system  as  presently  configured  is  capable  of 
operator  interface  via  the  RS-232  serial  I/O  port  of  its  internal 
SBC  80/10  computer.  Using  this  port,  a  Texas  Instruments  Model  765 
Intelligent  Terminal  and  a  Lear  Siegler  ADM-3A  cathode  ray  tube 
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(CRT)  terminal  were  successfully  interfaced,  both  locally  and  over 
telephone  landlines,  using  a  Bell  103J  modem.  Thus,  a  remotable  I/O 
capability  has  been  provided  with  commercial  off-the-shelf  hardware. 

The  use  of  such  a  remoting  capability  makes  future  demonstration 
testing  of  polling  improvements  possible  from  any  location  having 
access  to  a  telephone  landline  circuit  and  avoids  the  need  to 
physically  relocate  the  breadboard  microcomputer  from  its  interface 
at  MITRE-Bedford  to  its  collocated  AFSATCOM  Type  12  CP  terminal. 

Specific  follow-on  demonstration  and  evaluation  objectives  are 
derived  from  key  issues  related  to  incorporating  polling 
improvements  into  the  AFSATCOM  System.  Some  of  these  objectives 
are : 

•  Evaluate  the  operational  suitability  of  improved  polling 
capabilities . 

•  Evaluate  the  enhancements  resulting  from  improved  polling 
in  relation  to  performance  of  the  AFSATCOM  mission. 

•  Test  and  evaluate  the  effectiveness  of  the  improved  polling 
capabilities,  including  the  operator-terminal  interface,  in 
passing  message  traffic  between  terminals  netted  in  various 
poll ing  modes . 

•  Test  and  evaluate  the  adequacy  of  the  microcomputer 
hardware/software  to  support  the  overall  objectives. 

•  Demonstrate  the  potential  role  of  improved  polling  capabil¬ 
ities  to  all  concerned  agencies,  using  hands-on  hardware/ 
software . 

•  Develop  a  successful  test-bed  for  simulating  future  AFSATCOM 
hardware/software  polling  improvements  and  for  investigating 
other  related  areas. 

•  Obtain  data  and  operating  experience  for  an  eventual  upgrade 
of  the  AFSATCOM  operations  concept. 

The  improved  polling  test  objectives  cited  will  be  fulfilled  through 
three  test  categories.  These  are: 

•  Demonstration  of  functional  interface  capabilities 

•  Terminal  performance  tests 

•  Network  tests 


70 


The  first  category  will  show  the  basic  interface  capabilities 
and  inherent  limitations  of  the  as-designed  microcomputer 
hardware / sof tware  in  the  AFSATCOM  environment.  The  second  and  third 
categories  will  quantify  the  effectiveness  and  suitability  of  the 
polling  improvements  at  the  terminal  and  network  levels  and  obtain 
an  estimate  of  actual  polled  network  behavior  in  an  operational 
environment.  This  follow-on  demonstration  can  be  conducted  using 
the  microcomputer  hardware/software  and  the  AFSATCOM  Type  12  CP 
terminal  located  at  MITRE-Bedford .  This  demonstration  can  be 
performed  jointly  by  MITRE  and  Air  Force  personnel. 
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APPENDIX  A 


BASELINE  DESCRIPTION  OF  THE  AFSATCOM  ROLL  CALL  POLLING  MODE 


All  Air  Force  Satellite  Communications  System  (AFSCS)  terminals 
can  provide  two-way  teletypewriter  (TTY)  record  communications  using 
frequency  shift  keying  (FSK)  modulation  at  a  75  bits  per  second  (b/s) 
serial  rate  over  standard  ultra  high  frequency  (UHF)  channels.  The 
Roll  Call  Polling  mode  is  one  of  four  modes  possible  on  the  narrow- 
band  FSK  channels;  the  other  modes  are  Random,  TDM-1,  and  TDM-2. 


A. 1  ROLL  CALL  POLLING  SYSTEM 

Polling  may  be  conducted  on  either  half-duplex  or  full-duplex 
circuits  and  requires  both  a  Net  Control  Station  (NCS)  and  network 
discipline.  The  NCS  transmits  Poll  Call  messages  to  each  pollable 
automatic  send/receive  (ASR)  unit  in  the  network.  Each  ASR,  when 
polled,  is  given  a  30-second  period  of  time  in  which  to  transmit  a 
precomposed  response  to  the  NCS.  When  individual  ASRs  are  in  the 
poll  mode,  they  are  inhibited  from  transmitting  unless  they  are 
polled. 

Roll  Call  Polling  is  initiated  by  a  command  post  (CP)  terminal. 
Force  terminals  reply  through  use  of  a  stored  message  buffer  in  the 
ASR  containing  the  previously  prepared  response.  Poll  inquiry  is 
then  possible  when  the  polling  function  is  selected  at  the  ASR 
device. 

When  the  CP  message-processor  generated  poll  inquiry  is  detected 
at  the  polled  terminal  through  use  of  a  unique  code  sequence 
peculiar  only  to  that  particular  terminal  or  ASR,  the  precomposed 
message  is  transmitted  back  to  the  CP  terminal.  Roll  Call  Polling 
is  structured  so  that  the  CP  NCS  queries  each  terminal  in  the  polling 
net  in  sequence  and  each  polled  terminal  replies  only  upon  detection 
of  its  own  unique  code. 

The  Roll  Call  message  from  the  CP  NCS  is  unclassified  and 
structured  as  shown  in  table  A-l  and  table  A-2. 
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Table  A-l 


Roll  Call  Message  Format 


UUU,  SOH,  N,  kv  A2,  A3,  ETX 

Address  Characters*  where  N  =  variable  mode  character** 


Address  Header 


*  A^  designates  the  particular  super  group. 

A2  and  A^  designate  the  particular  group. 

A^  and  A 2  and  A^  designate  the  particular  member. 

**  The  mode  character  found  in  the  message  address  header  is 

signified  by  the  variable  H  representing  address  header  codes. 

Selective  Inquiry  message  structure  is  closely  related  to  Poll 
Call  message  structure  and  differs  only  by  the  change  to  the 
variable  found  in  the  mode  character. 

The  address  portion  of  Selective  Inquiry  messages  is  similar  to 
the  Poll  Call  message  and  consists  of  an  SOH  character  denoting 
start-of-header  and  signifying  that  the  next  four  characters  are  an 
address  header.  The  first  character  following  the  SOH  is  the  mode 
character  whose  codes  are  represented  in  table  A-2.  It  should  be 
noted  that  only  when  the  mode  character  is  0  does  it  denote  that  the 
message  is  a  Poll  Call. 


Table  A-2 

Address  Header  Codes 


N  =  Mode 
0 
1 
2 
3 


Function 
Poll  Call 
Super  Group  Call 
Group  Call 
Individual  Call 


Selective  Inquiry  Modes 
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An  All  Call  mode,  denoted  by  no  address  header,  is  accomplished 
by  omission  of  the  SOH  designator,  the  mode  character,  and  the  three 
address  designation  characters. 

The  three  address  designator  characters  (second,  third,  and 
fourth  characters  following  the  SOH)  use  three  hexadecimal  digits 
(0-9,  A-F)  for  A^,  and  A^  and  result  in  4096  possible  addresses. 

Each  pollable  device  in  the  network  must  have  a  unique 
programmed  address.  This  address  is  manually  inserted  into  the  ASR 
via  thumbwheels  and  must  be  part  of  the  Poll  Call  message.  If  there 
is  a  match,  the  precomposed  message  will  be  transmitted  as  a  Poll 
Response  message  with  an  unclassified  message  structure,  as  follows: 

UUU,  SOH,  F,  Aj,  k^,  A^,  message  (if  any),  ETX, 

where  F  is  the  mode  character  indicating  that  the  message  is  a  Poll 
Response. 

If  there  is  no  match,  the  Poll  Response  message  is  not 
transmitted. 


A. 2  CP  TERMINAL  POLLING 

The  message  processor  unit  (MPU)  within  the  CP  terminal  can 
accommodate  four  poll  groups,  with  each  group  containing  up  to  16 
members  for  a  total  of  64  members.  Members  of  any  one  group  are 
restricted  to  the  same  combination  of  second  and  third  (A  and  A^) 
address  characters.  Two  polling  commands  are  defined.  One  command 
causes  all  members  of  a  single  group  to  be  polled.  The  other 
command  causes  all  members  of  all  groups  currently  defined  to  be 
polled. 

Upon  reception  of  a  polling  communications  supervisory  (COMSUP) 
command  from  an  ASR,  the  MPU  transmits  a  poll  request  message 
sequentially  to  each  member  of  the  group,  waiting  30  seconds  between 
requests  for  replies.  A  poll  response  is  timed  out  if  not  received 
in  its  entirety  within  30  seconds.  The  MPU  will  automatically 
change  the  individual  address  character  (A^)  designating  a  member  of 
a  group  with  each  successive  poll  request  message  according  to  the 
stored  poll  table  in  the  MPU.  This  poll  table  can  be  either  entered 
or  changed  by  COMSUP  commands,  which  provide  for  the  dynamic 
definition  and  maintenance  of  up  to  four  concurrent  poll  groups. 

New  groups  can  be  added,  existing  groups  deleted,  or  individual 
members  added  or  deleted  from  existing  groups.  See  table  A-3  for  a 
listing  of  COMSUP  commands  applicable  to  polling. 
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Table  A- 3 


COMSUP  Commands  Used  in  Polling  Operations 


COMSUP  Command 


1)  PATG  gg  11 


“I  ■•] c 


l-  88  = 


2)  PDEI.  gg  a 


3)  PPLG  gg  c 


0 


4)  PPAG  c 


Description 


ADD  TO /CREATE  POLL  GROUP 

2-character  group  identifier  where 
all  alphabetic  characters  are  upper 
case.  Characters  for  "gg"  must  be 
selected  from  the  hexadecimal  group 
0  through  9,  A  through  F. 

Optional  2-character  line  mnemonic 
to  poll  on;  the  line  mnemonic  is 
specified  only  when  defining  a  new 
group . 

r Aircraft  identifier  (one  to  eight 
characters  may  be  specified  in  one 
command).  All  alphabetic  characters 
are  upper  case.  Characters  "a"  must 
be  selected  from  the  hexadecimal 
L group  0  through  9,  A  through  F. 

DELETE  FROM  POLL  GROUP 


2-character  group  identifier  where 
gg  =  all  alphabetic  characters  are  upper 


Aircraft  identifier  (one  to  eight 
characters  may  be  specified) .  If 
none  is  specified,  the  entire  group 
will  be  deleted.  All  alphabetic 
|  characters  are  upper  case.  Charact¬ 
ers  for  "a"  must  be  selected  from 
the  hexadecimal  group  0  through  9, 

A  through  9. 

POLL  GROUP 

(2-character  group  identifier  where 
all  alphabetic  characters  are  upper 


POLL  ALL  GROUPS 


Table  A- 3  (Continued) 


Notes 

The  group  tables  are  built  and  maintained  dynamically  in 
response  to  operator  commands.  A  new  group  will  be  defined  as  a 
result  of  an  ATG  command  that  calls  out  a  group  not  already  in  the 
tables.  Members  in  a  group  are  identified  in  the  ATG  and  DEL 
commands  by  three  characters;  the  last  two  characters  of  a  group 
member  identifier  are  the  same  as  the  group  identifier.  When  all 
group  tables  are  in  use,  the  form  of  the  command  used  for  defining 
up  to  four  groups  at  any  given  time  will  be  rejected  by  the  MPU. 
Another  form  of  the  command  is  available  for  use  in  subsequently 
adding  additional  members  to  an  existing  group.  Attempts  to  add  a 
member  already  in  the  group  will  cause  the  entire  command  to  be 
rejected . 

For  the  command  used  to  delete  individual  members  from  a 
polling  group,  the  entire  command  is  processed  and  all  identifiers 
are  validated  by  the  MPU  before  the  group  table  entry  is  modified. 
Any  error  detected  will  cause  the  entire  group  to  be  rejected. 
Another  form  of  this  deletion  command  is  available  for  use  in  delet¬ 
ing  an  entire  group  and  releasing  the  associated  table  entry.  It 
should  be  noted  that  the  first  form  of  this  command  can  also  result 
in  the  group  table  entry  being  released  if  all  its  members  are 
released. 


Each  member  is  polled  bv  building  a  Poll  Call  message  containing 
the  group  and  member  identifiers,  then  queuing  the  message  to  the 
MPU  output  line  associated  with  the  group. 

When  the  Poll  Response  message  is  received,  it  is  verified  and 
forwarded  to  a  high  speed  printer  with  the  prefix  POLL  RESPONSE 
RX.  The  next  group  is  then  polled  and  the  process  continues  until 
the  entire  group  has  been  polled.  If  no  response  is  received  from 
a  particular  member  within  30  seconds,  a  print-out  alarm  is  generated 
to  indentify  the  group  member  who  failed  to  respond.  A  received 
response  from  a  terminal  not  polled  (e.g.,  address  of  responding 
terminal  does  not  match  that  in  the  poll  request  message)  results  in 
the  message  being  intercepted,  forwarded  for  printout  on  the  high 
speed  printer,  and  a  POLL  RESPONSE  ER  interrupt  message  being 
printed  out  along  with  the  Poll  Response.  See  table  A-4  for  a 
description  of  the  MPU  Status/Alarm  and  Intercept  Messages  for 
polling. 
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Table  A-4 


MPU  Status/Alarm  and  Intercept  Messages 


Condition 


1)  CROUP  XX  POI.T,  COMPLETE 

XX  2  hexadecimal  digits, 
a  group  identifier. 

2)  ALL  CROUP  POLL  COMPLETE 

Processor  has  completed 
polling  all  previously 
defined  groups. 

3)  NO  RESPONSE  TO  POLL 

A  time-out  has  occurred  on 
a  particular  member. 

Reason  for  Intercept 

4)  Poll  Response  from 
station  not  polled 

5)  Poll  Response  received 
Note : 


Status /Alarm  Message 
PLG  XX  COM 


PAC  COM 


POLL  RSP  T/0 


Intercept  Message 
POLL  RESPONSE  EP 

POLL  RESPONSE  RX 


MPU-generated  Status/Alarm  messages  are  prefixed  with  a  date¬ 
time  header  and  a  line  identification  mnemonic  which  indicates  the 
source  of  the  message. 
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A. 3  FORCE  TERMINAL  POLLING 


As  a  member  of  a  poll,  the  Force  terminal  pollee  must  dial  his 
proper  address  into  the  ASR  thumbwheels,  enable  the  address 
recognition  switch  on  the  ASR,  and  press  the  poll  XMT  button  once. 
Whenever  the  ASR  receives  a  message  header  of  the  format  following 
the  UUU  consisting  of: 

SOH.  p,  Aj,  A2,  A3 
where 

Ap  A^.  A^  is  the  ASR  address, 

the  ASR  wilt  automatically  transmit  whatever  is  in  ASR  storage  up  to 
the  message  length  selected,  each  time  the  ASR  is  polled.  If  a 
change  to  the  Poll  Response  message  is  desired,  the  operator  must 
press  the  compose  and  edit  button  and  make  the  changes,  thereby 
taking  the  particular  ASR  out  of  the  automatic  poll  response  mode. 
Thus,  poll  responses  are  inhibited  while  the  Poll  Response  messages 
are  either  updated  or  revised.  After  update,  the  poll  XMT  button 
must  be  depressed  again  to  return  to  the  poll.  Both  Poll  Call  and 
Poll  Response  messages  should  print  out  on  the  pollee 's  ASR.  In 
addition,  anv  text  attached  to  the  Poll  Call  message  will  not  be 
printed  out  by  the  pollee's  ASR,  regardless  of  model  ASR  (i.e., 

120A;  120B:  129;  Mini-I/O).  In  actual  operation  during  an 
automatic  poll  request,  the  model  120A  ASR  prints  nothing;  models 
120B,  129,  and  the  Mini-I/O  print  only  the  poll  message  (five 
characters  described  above)  along  with  the  ETX  (whenever  it  occurs). 


A. 4  OTHER  MPU-EQ'JIPPED  TERMINAL  POLLING 

An  MPU-eauipped  terminal  can  also  be  polled  as  described  above 
but  is  limited  to  a  shorter  Poll  Response  message  because  of  the 
message  transfer  technique  inherent  in  the  MPU-equipped  terminal. 
Since  data  are  transferred  from  the  modem  to  ASR  on  a  message-by¬ 
message  basis,  the  complete  Poll  Response  message  is  transferred 
into  the  processor  from  the  ASR  before  going  to  the  modem.  To  stay 
within  the  CP  processor  poll-out  time  of  30  seconds,  the  maximum 
length  of  a  Poll  Response  message  from  a  processor  equipped  terminal 
is  130  characters. 
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APPENDIX  B 

PL/M-80  SOURCE  CODE 


/* 

111. DATA  -  .ICC  l:  VERSION  1  -  10  JULY 

ao 

*/ 

OOOOObOO 

/» 

hB.H.DAlA  -  r CL  1:  VERSION  3-10  JAN, 

80 

*/ 

0000  1000 

/*«/ 

00002000 

/• 

I.llhOVEC  f  0  L  II  KG  CONSUL  COHNANDS 

*/ 

00003000 

/* 

FNApiE  CHECKIN  MODE 

ZNR ! SAbC  1XX  X 

*/ 

OOOOKOOO 

/  * 

LISAPLL  CHECKIN  BODE 

ZKH ! SAbCOXXX 

*/ 

OOOOSOOO 

/• 

Pul  1 ABLE  CHECKIN 

ZNR 

•CAbCAAA 1 

*/ 

OOOObOOO 

/• 

hCl  TAoLE  checkin 

ZNR 

!  DAbCBBB 1 

*/ 

00007000 

/• 

KCi  mu  CHECKIK 

ZNR 

! EABCCCCO 

*/ 

00006000 

/* 

i*CI  'PKaLE  CHECKIK 

ZNK 

! b AbCDD 1 

*/ 

DOC'09000 

/* 

Fhiohin  TABLE  LOAD 

i  N  H 

!  1ADC,  .  .  . 

•/ 

00010000 

/• 

hOlfiNt  TABLE  LOAD 

ZNR 

! 2AbC , , ,  . 

*/ 

00C 1 1000 

/* 

Kj-rhAiEIC  TAbLE  LOAD 

ZNH 

! 3AI C. . . . 

*/ 

OCC 1 zooo 

/* 

.1  SALLE  censor  MSG  PRINTOUT 

ZNK 

!  4  A  o  C  0 

•/ 

000  1  3G0u 

/* 

tNAcU  COM.  SUP  MSG  Phi  A  TOLT 

ZNH 

!  4  A  b  C  1 

*/ 

JOC 1 u  000 

/• 

Bl-I  MTIALIZE  PCI  T  A  b  L  E 

ZNH 

!  FA bC 

•/ 

JOC 19000 

/° 

hE-I  MIlALIZk  hCI  TAbLE 

ZNR 

!  GAbC 

•/ 

OUU IbOOO 

/• 

RL-IMTLALIZl  KCI  TABLE 

ZNH 

•  HAbC 

•/ 

0001 700u 

/  v 

EE-1 KiriALIZE  OCI  TABLE 

ZNh 

!  AABC 

•/ 

DUO IbOOO 

/• 

.EIOKirr  CHECKIK  TAbLE  TKAKSEEK 

Z  Nh 

! TAbCXXYZ 

*/ 

000  19000 

/  ¥ 

rCiIln  CHECKIK  TAbLE  TKANSPLP 

ZNH 

! TABCYXYZ 

•/ 

00020000 

/  * 

KL-UuMlC  ChELKlN  TAbLE  ThAnSFER 

ZNH 

•TAHCZXYZ 

•/ 

000*.  1000 

/  # 

■V.l  IAELE  ThAKSEEh 

ZNh 

! IABCTXYZ 

•/ 

00022000 

/♦ 

P0ILL  u  P-NIN1CUT  POLL  TABLE 

ZNh 

!  HABC 

•/ 

0002 3000 

/  w 

>  0  L  L  IAELE  EUKTCLT  (LOCAL  OKlY) 

ZNK 

! U A  fc  CZX  Y  ZL 

*/ 

000*4000 

✓  • 

io-L  TABLE  EKIKTOUT  (REKOTL  ALL-CALL) 

ZNh 

! UAbCZXYZR 

•/ 

000*  9C00 

/  4 

IRiOUTY  TABLE  PKIKTOUT 

ZNh 

! UAbCPXYZ 

•/ 

00020000 

/• 

pLL  T IKE  TArLE  PRINTOUT 

ZNh 

! UABCRXYZ 

*/ 

OOOl  7000 

/• 

KU-TEAfEIC  TAbLE  PRINTOUT 

ZNR 

1UABCJXYZ 

*/ 

00  02b  000 

/* 

GhcJr  I  ALL!  FhlNTCUT 

ZNh 

! UAbCOXX  Z 

•/ 

OOCl  9000 

/• 

FO.,.,  /NAME  (El  HOLE  POLE) 

ZNR 

!  JAbC  IS 

•/ 

00030000 

✓  • 

r  Cl  L  IN  At  LI  (MULTIPLE  POLL) 

ZNR 

!  J  A  b  C  1 H 

•/ 

00031000 

/• 

El iL  L ISAELE  (SINGLE) 

ZNh 

! JABCOS 

•/ 

00032000 

/  • 

iVUrK'H  ENABLE  ( N  G  N  -  T  k.  M ) 

ZNR 

!  LA  b  C  10 

•/ 

OOC  33000 

/  • 

Pol*.  *KllnRUPT  ENABLE  (TDf  ) 

ZNh 

!  LAbCO  1 

•/ 

O0O3UOCO 

✓  * 

FULL  INTERRUPT  ENABLE  (TLfS  o  NON-TDM) 

ZNR 

! LA  bC  1  1 

•/ 

00039000 

/• 

FOIL  INIENHUPT  DISABLE  (TIM  t,  NON-TCM) 

ZNR 

!  LAbCOO 

•/ 

00036000 

/  • 

kblUfin  ChlCKlH  TABLE  DELFT  I C  N 

ZNR 

! NABCPO  1 

*/ 

0U037000 

/  • 

RL-cTIKl  CHECKIK  TAbLE  TELEIIoN 

ZNR 

! NAbChO 1 

*/ 

000 jfcUOO 

/• 

Ko-TKAPFIC  CrECKIN  TABLE  DLLEIIOK 

ZNH 

!  NAECN01 

•/ 

00039000 

/  • 

CftCUF  LhECKlN  TAbLE  DELETION 

ZNR 

! NABCGO  1 

•/ 

OOOUOOOO 

/• 

PFPthTBACfs  t  POLL  SLOT  HLASSICNr INT 

ZNh 

!  OAbC . 

•/ 

000U  1000 

/* 

Ik  AC  l  H Ab  L  E  (Nt H -TDM) 

ZNR 

! PAbC  1 

*/ 

00062000 

/• 

t  0  A  C  L  ISAELE  (NON-TDM; 

ZNH 

! PAbCO 

•/ 

00063000 

/• 

MESSAGE  TRANSMISSION  DELAY  (NCN-TDM) 

ZNh 

! KAbC  10 

*/ 

00066000 

/• 

IMult  ALL  TYFIS  CF  MESSAGES 

ZNR 

! VArCO 

*/ 

00069000 

/  • 

LilhlGAPD  NON-COMSUP  MSGS  » h l N  POLLING 

ZNR 

! VAbC  1 

*/ 

00066000 

/• 

LIlPkGAhL  ALL  NON-COMSUP  MESSAGES 

ZNh 

! VABC2 

•/ 

00067000 

/• 

rhLl.RA"  K 1ST  API  (Rt-IPL  B.  I  o  h  0  P  ROC  L  i  SO  R  ) 

ZNH 

!  h  A  b  C 

•/ 

00068000 

/• 

KS.3*  .KTLRPAcl  ENAbLE  (1J/LI5ABLE  (0) 

ZNR 

! JAbC  1 

V 

00069000 

/• 

MICrLi HOC  El SCh  ALLRESS  CHANGE 

ZNh 

! lAbCCAb 

•/ 

00090000 

/* 

V 

0009  1000 

/* 

V 

00092000 

/* 

NOTES  V 

00093000 

/♦ 

1)  ALL  CoB  SUP  BSCS  REwUIRE  "  *.  k  R  !  '•  EOLLONEL 

BY 

AT  LEAST 

*/ 

00096000 

/• 

ONE  MJLt  CHAhACTEH  IMMEDIATELY  AFTER 

THE  " 

J  H  ' 

*/ 

00099000 

/♦ 

l)  i«o  etx's  are  pari  or  the  ccnsup  hsg 

suinx  . 

*/ 

00096000 

/* 

J)  "PI*"  IS  IKLICATIVE  OE  A  hIXIDECIHAL 

DESTINATION  ADDRESS 

•/ 

00097000 

/• 

<*)  "XbC"  IS  INDICATIVE  Cf  TKL  INITIALIZED 

ADDRESS  OE  THE 

*/ 

00096000 

/• 

HICKCPRoCiSSGR ;  THIS  IS  A  CCNSUP  VARlAbLE 

LN  IISELr. 

*/ 

00099000 

/* 

V 

00060000 

/• 

*/ 

0006  1000 

'♦ 

1KHT-/  OUTPUT  LESCHIPTIOKS  •/ 

00062000 

31 


PRJC SOUND  PADS  BlM-HOT  T1LM& 


/• 

/* 

/* 

/* 

/» 

/* 

/« 

/• 

/* 

/* 

/* 

/*«/ 

/• 

/* 

/* 

/* 

/*«/ 

/* 

/* 

/* 

/* 

/• 

/• 

/♦ 

/• 

/••/ 

/* 

/• 

/* 

/* 

/* 

/*•/ 


INPUT  1  •  CHAD  BEADY  fhCn  HODER  */ 

INPUT  101  «  CHAR  REACY  f BOH  HPU  */ 

INPUT  2  »  CONTINUE  PBOGBAfl  •/ 

INPUT  3  ■  CHA8  FROH  HOC  EH  */ 

INPUT  103  •  CHAB  FROM  HPU  •/ 

INPUT  9  *  SPACE  TOR  OUTPUT  TO  HPU  */ 


INPUT  109  -  SPACE  FOB  OLTPUT  TO  RODEH  */ 

INPUT  <7> :  230  ( E6H)  •  CLOCK  FOB  KICMOPBOCESSOB  */ 
INPUT  <107>:  229  (E9H)  •  CLOCK  FRon  HODER  •/ 

INPUT  <9> :  228  (E4K)  *  ECO  SLOT  INPUTS  */ 

*/ 


6  2  9  3  PROGRARRABEE  COUNTER  INPUT/OUTPUT  »/ 

OUTPUT  220  (DCH)  •  LOAD/MAD  COUNTER  NO.  0  {8253)  */ 

OUTPUT  222  (DEB)  -  LCAE/B  EAD  COUNTER  NO.  2  (8293)  */ 

OUTPUT  223  (DFH)  «  WRITE  RODE  N C HU/ NO-OP  ( 3-ST AT E)  */ 


OUTPUT  1  •  DATA  TO  RPU  */ 

OUTPUT  101  •  DATA  TO  RULER  */ 

COTPUT  2  «  DIAGNOSTICS  •/ 

OUTPUT  R4>;  233  (E9H)  *  PARITY  DISABLE  TO  RODEH  */ 

AND  I/O  CHIP  RESET  */ 

OUTPUT  <fc> :  234  (EAH)  *  ME  ENABLE  TO  HPU  •/ 

OUTPUT  <10e>:  239  (EfcM)  «  I/O  TX  ENABLE  TO  RODEn 
ARC  RX  CLOCK  ENABLE  TO  HPU 


RS2  32  INPUT/OUTiOT 

OUTPUT  237  (BOH)  .  CCMROL  »ORD  (CPU  TO  USART) 
OUTPUT  23E  (ECH)  *  LATA  (CPU  TO  USART) 

input  .37  <edm)  •  status  word  (us art  to  upu) 

INPUT  .3b  (ECh)  *  DATA  (USAkT  TO  CPU) 


/»*/ 

/•«/ 


/• 

nirORY  ALDhEsSES 

FCR  l/l 

*/ 

/••/ 

/* 

INPUT 11ACR  • 

OF  1  CO  H 

•/ 

/* 

INPUT  3 i A  UR  ■ 

orrccH 

•/ 

/* 

CUTPUTItAUR 

OF  t'Op 

*/ 

/• 

INPUT  10 1JADR 

•  Ofl.CH 

*/ 

/* 

INPUT 1033ADR 

•  C  >  E4CM 

*/ 

/* 

INPUT  139SADR 

*  CFFOCH 

*/ 

/* 

OUTPUT1C1J ACH 

*  UJ40K 

*/ 

/* 

1NPUT9JADR  • 

U)  E  00  H 

*/ 

/♦•/ 

/♦«/ 

/•*/ 

/*•/ 

LECLARE  (PRCGRAHSSIAPT,  INITIAL! RSC )  LABEL; 

/*  KS. 32  I/O  CHIP  INITIALIZATION  •/ 

/*  RODE  CONTROL  */ 

PROGRAfll  START:  OUTPUT  (237)  »  79b; 

/•  79h  *  C111  ICC  18;  01-1  STOP  bIT/l*E»EN  P AnI TY/  1»P ANI T Y  ENABLE  ♦/ 

/*  10*7  BIT  CHARACTER/01* IX  BAUD  RATE  FACTOR  »/ 

/•  CORRARL  INSTRUCTION  -  RESET  */ 

OUTPUT  (237)  *  40H  ; 

/«  RODE  INSTRUCTION  •/ 

OUTPUT  (237)  *  79H; 

/»  CORRAND  INSTRUCTION  -  INITIALIZATION  */ 

CUTPUT  (2  37)  *  1 7 H  ; 

/*  1 7H  •  000  1  0  1 1 1t ;  O'ENTER  HUNI  ROD£/0*I NTIRNA L  RESET/  */ 

/*  C'RTS/ 1'ERROR  RESET/C*SINL  BREAK  CHAR/1*RX  ENABLE  •/ 

/*  1»DTR  (NOT)  OUTPUT  FORCE!  TO  ZERO/l*TX  ENAbLE  •/ 


00083000 
00084000 
00089000 
00086000 
00067000 
00070000 
00C71000 
00072000 
00073000 
00074000 
00079000 
00076000 
00077000 
000770 1U 
00078000 
00079000 
00  Cb  0000 
000b 1000 
00062000 
00C63000 
00064000 
00  OP  900  0 
OOObbOOQ 
4/0008  7000 
•/  00068000 
00089000 
•/  00090000 
•/  00C91000 
•/  00092000 
•/  00093000 
•/  00094000 
00099000 
00096000 
00097000 
00096000 
00099000 
00  100000 
00  101000 
00  102000 
00  103000 
00 104000 
00  109000 
00  106000 
00  107000 
00  108000 
00  109000 
00  110000 
00 11 1000 
00 112000 
00113000 
00  114000 
00  119000 
00 119010 
00119020 
00  116000 
00117000 
00118000 
00119000 
00120000 
00 12  1000 
00121010 
00121020 
00121030 
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/**/ 

/•  CGNlKCL  NORC  INITIALIZATION  (6  255  *  1  CONTROL  Ok  LI)  »/ 
CUTPUT<231)  •  9BH ; 

OUTPUT  {2  35)  -  90H ; 

OUTPUT  (2  33)  *  10  H ; 

OUTPUT  (2  33)  *  OH; 

OUTPUT  (2  33)  *  10H; 

/•*/ 

/•  CONTROL  REGISTER  I N IT  I* LI Z A T I C k  •/ 

DECLARE  HPUilOJCTL  11POINTER  ADDRESS  INITIAL  (OTFOOH); 

DECLARE  KPUJIOJCTL1  RASED  HPU 1 1 0  I C T L 1* POI NT E R  BYTE; 
HPUIIO*CTL1*POINTER  »  OPPCOH; 

RFUilOSCTLI  •  0  3  H  XOR  OlPh; 

✓  *•/ 

DECLARE  RPUIIOSCTL2JPOINTZR  ADDRESS  INITIAL  (C/FrNOH); 

DECLARE  E.PUJEOICTL2  RASED  H PU* 10 JC1 L2*POI KT E R  BYTE; 

!HUP I0ICTL2J POINTER  •  OFENOH; 

HPUII0JCTL2  ■  2F H  YOR  OTPK; 

/•*/ 

HPUIIGJCTL1  -  N3H  XOR  CPFh; 

HPUSIOSCTL*  -  03  H  XOR  OTPR; 

HPJJIOJCTLl  *  OCOH  XOR  OEIH; 

/••/ 

/•*✓ 

DECLARE  HOLEKJ  IOJCIL  1IP0IRTER  ADDRESS  INITIAL  (OrEOOH); 

LECLARI  flOCEHUOJCTL  1  BASED  HOC E H* 1CSC TL 1 JPOI N T EH  BYTE; 
r.CDEHSlCJCT  L  1JP0INTER  =  OIEOOH; 

HOCEH.  IICPC1L1  *  0  3  H  XOR  UEFH; 

/♦•/ 

CECLARE  rUkE.U  I0»CTL*|PUINTER  ACLRLSS  INITIAL  (CFEnOm); 

DECLARE  r.OLEHl  IOJCIL*  bASED  HODE  R  J  i  C*  C  TL2  *P0 1  NT  EH  BYTE; 

.“C  L  EHSIOPCT  L2SP0INTER  =  CJE«OH; 
rCDEHJIOJCT L2  »  2PM  XOR  D I F  H ; 

/**/ 

tiCCEHJ  ICICI  L  1  ■  N  3  H  XOR  CEFK; 
rccEHi ICiCT  L2  »  03H  XOn  v»FH; 

HCDEHI1C1C1 L  I  *  OCOH  XOR  0 E E H  ; 

/*•/ 

/•  •/ 

/•  1RTRUCTIC.V  FOR  DIVIDE  BY  12N0  (ICO  HE)  Ok  Ib-blT  COUNTER  •  2  •/ 

OUTPUT  (223)  *  0B6H  ; 

CD  TEUT  (  2  22)  ■  ODBH  ; 

CD  TPUT  (2  22)  ■  ON  H  ; 

/•  INSTRUCTION  FOR  I  I V  IDE  BY  n9«,«  (7b  HZ)  ON  COUNTER  •  0  »/ 

OUTPUT  (.23)  *  jfc  R  ; 

OUTPUT  (  *  2  0)  •  b  2  h  ; 

OUTPUT  w2l)  *  13H ; 

/»  these  give  7b  t  300  hz  clocks  r rcs  fa.7C  hhz  on-board  xtal  •/ 

/••/ 

/*•/ 

LLCLARE  KE*J*5FLAG  BYTE  INITIAL  LC)  ; 

RS232SFLAO  ■  0; 

DECLARE  (RS*32*SPACE1TEST,  R  S2  32  I C  U  1C  HAR  ,  R  S  2  J  2 1 1  N  PU  T  1 , 

RS232SGC1,  R  S  23  21  HOD  E  *  S  El)  LABEL; 

DECLARE  (ALR1,  ADR2,  ADR3  )  BYTE  INITIAL  ( > A • , • B • , • C • )  ; 

ALR  1  ■  'A*  ; 

ADR  2  •  • B  ' ; 

ALhi  •  'C'; 

DECLARE (PO l LJSDOT  1H ,  P0LLJSL0T2H,  rCLLJSLOT  3H .  POL  L*  S  LOT N  H , 

POLLPSLClbll,  POLL]  SLOTb  H  ,  POLcISLOTIL,  P0LLJSL0I2L,  PO  LLI  SLOT  3  L  , 
POLLJSLOTUL,  POLLiSLOTSL,  P0LLJSL0T6L,  TX *S LOTS  IN  I TI A LH , 
1XSBLCT11N1T1ALL,  TDRJPOLLJTX *S LOT* I N I TI A l)  BYTE 

1NI1IAL<*1'.M,.,2,,'3,,,N,,,5,.,1*,»9,,,7«,,S,,,3','1',,0,,,1 


00 122000 
00123000 
0012N000 
00  12S000 
00126000 
00127000 
00  126000 
00  129000 
00  130000 
00  13  1000 
00  132000 
00  133000 
00  13N000 
00  135000 
00136000 
00137000 
00  138000 
00  139000 
00  1UOOOO 
00  IN  1000 
00  1H2000 
00  IN  3000 
00  INN 000 
00  1N5000 
00  1N6000 
00  IN  7000 
00 InoOOO 
00 1N900C 
00 150U00 
00 1b 1000 
00 1S2000 
00  1  b  300  0 
00  IbNOOO 
00 1 b  b  000 
00 IbbOOO 
00 1 b  7  000 
00 IbBOOO 
00 IbbOOO 
00  H  OUOO 
00  16  1000 
00  1b2000 
00  lb  3000 
00 IbNOOO 
00  16N010 
00 16N020 
00 16N030 
00  IbNONO 
00  165000 
00  166000 
00  167000 
00  16B000 
00  169000 
00  170000 
00  171000 
00 172000 
00 173000 
00 17N000 
00 175000 
00176000 
00 177000 
00  176000 
00 179000 
1)  ; 00  lbOOOO 
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POLLiSlOTIH  •  •  1* 

POLLiSLOTlL  -  •  1* 

PO  1  Li  SLOT  2  H  «  '1' 

PO  l  LiS  LO  T  2  L  «  *9* 

FO l LSS  LOT  3  H  «  •*• 

P0LLiSL0T3L  *  <T 
P0LLJSL0T4H  -  'S' 

P0LLiSL0T4L  •  *5' 

LO LLSSLOTSH  « 

FO  L  LSS  L0T5  L  -  '3* 

P0LLiSLQT6H  -  *5* 

POLLjSLOT6L  •  •  1* 

IX 1SL0TIINITIALH  »  'O'; 

TX iSLOTIIAITIALl  *  •  1  • ; 

ICtliPOLLiIXiSLOTilNIIIAL  «  <1; 

DECLARl  ICS3,  CS4)  bYTI  ; 

DECLARl  IPCLLlIBIT,  (  0  L  LJI10D  E$ER  HO  h  ,  P  OLLSO  V  EHSTEST  .  XX,  YY,  6  6,  ZZ. 
RLPCLLiTEST,  PC L LSBSG JCOBP L LT E  ,  OU TT ABL E 1 tSTA TO S ITEST . 
FOLLLNGSBOCESTEST,  AU TO JPOL Li h ESTAKT ,  NONiTDB IPO LL ,  ED AClBOEE* SET , 
TLMiPOLL,  PCLLSTABLESTX  ,  PO L Li I6TER R UPT , k 1TK A  HSU ITI E LAGJS ET)  LABEL 
DECLARE  FO  LLSBSGSCOUNT  ADDRESS  INIIIAL<0); 

POLUBSCICOUNT  *  0; 

DECLARE  NTLA.iECACSTAbLE (7)  BYTE; 

DECLARE  (ECACIFLAG,  REPOLLSFEAGSCOUNT}  BYTE  IA1TIAL  (0,0); 

EDACJfLAG  •  0; 

PEPoLliELACSCOURT  *  0; 

DECLARE  (CCXPRESENT,  CCliPFESENT)  ALDRESS  INITIAL  (0,0); 

CCXFRESENT  «  0; 

CC  UPRESEM  «  0; 

DECLARE  |  IPOLH01.  GC  1 ,  OPOU1C1,  1POLL1011,  NON  iTDB  iDEL  A  Y  1 ,  POLLJflODE 
DELAY  IPUUT  1  NE  1 .  EATiBSGISET,  B 1 0 E BSOUT P U T i C OB PO S E  1 , 

LC  T  1  ,  OUiriAGI,  ECBTEST1,  SPACET  EST  1,  NO  ki  TDBiDE  LA  Y  i  S  ET  ,  CHAR4T1, 
COBSUPLGAu  1,  CUTCHAR1,  NOCO B SO P L 0  A L  1  ,  H X IBU S Y 1 0 V E RH I D E  I , I PO l L  1) )  LABEL 
IECLARE  (  SHUTDOWN ,  SHUTDOWN  I  ,  LC  ADA  DR ,  ENDLOAD,  ADRERROM  )  LABEL  ; 
DECLANE  EATiBSGlELAG  1  BYTE  I N ITI A L  (C EH)  ; 

EATJS SuiP LAG  1  •  0  1 N  ; 

LtCLANE  (CLPl,  CLAPI,  DELAY  1 ,  CIA*,  CLAP2,  C  LA  3, 

CEAPj  )  EWE  INITIAL  (0 , 0 , 0 , 0  ,  C  ,  w  ,0)  ; 

DECLARE  (CIRLNT1,  CLRCNT2,  CLACAT.’.'  ACDHESS  INITIAL  (0,0,0); 

C  LA  1  *  0  ; 

CLAP  1  »  0  ; 

C  LHC  NT  1  *  D  ; 

DELAY  1  »  0; 

CLRx  ■  0 ; 

C  LAP  2  ■  0  ; 
c  LAC  N  T  2  •  C  ; 

CIA  3  »  0  ; 

CLAP  3-0; 

C  LAC  NT  3  ■  C  ; 

DECLARE  lb  UPPER  I  Cl  LA  Y  I,  NO  Nl  TDBi -So  JuE  L  A  Y  1)  ADDRESS  INITIAL  («8,300H); 
PDEflRlDElAY  1  *  46; 

NGNiTDBlBSUiDEDAY  1  •  3uCl*; 

DECLARE  (ElACiPOUTlAE.OUTPUTlCOBPOSl.PTTiLOADl.DllAYJCAl, 

RITJDCAL1,  NTTtLCADl,  TT  I  LC  A  L  I  L  NO  1 )  LAbEL; 

DECLARE  (  iCLA,  TC  LAP  ,  TCLACNT)  bY.l  I  N  L  T  1 A  L  (d  ,  0 , 0 )  ; 

1 C  L  A  *  0; 

TCLAP  ■  0; 

TCLACNT  -  0; 

DLCLARL  (B  SGiCV  ERSDLLAY ,  TCLAl,  TCLRP),  TCLACNT  t)  BYTE 

0)  ; 

■  bOH  ; 


IMT  IAL  (few  ,  C  ,  0  , 
A  SGiOV  ERSDLLAY 
TCLAl  •  0; 

TCLAP  I  «  C; 


00161000 
00182000 
00 163000 
00  184000 
00  18  5000 
00  186000 
00187000 
00188000 
00  189000 
00  190000 
00  191000 
00192000 
00  193000 
00194000 
00  19S000 
00  196000 
00  197000 
00  196000 
00  199000 
;  00200000 
0020  1000 
00202000 
00203000 
0020v000 
00205000 
00206000 
00207000 
00206000 
00*09000 
,00210000 
002  1  1000 
002 12000 
;002 13000 
002  14000 
00*  15000 
00216000 
00217000 
00216000 
002  19000 
00220000 
0022  1000 
00222000 
00223000 
00*24000 
00*25000 
00*26000 
00227000 
00228000 
00229000 
00230000 
00*31000 
00232000 
00233000 
00*  34000 
00235000 
00236000 
00237000 
00236000 
00239000 
00240000 
0024 1000 
00242000 
00243000 
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TCLKCNT  1  -  0;  00244000 

DECLARE  (RETRANSF1ITIFLAG,  TDHIPO LI J TX *  SLOT)  BYTE  I  MIT  IAL  (0 ,  1)  ;  00245000 

RETRANSF1ITJFLAG  •  0;  00246000 

TCflJFOLLITXlSLOT  ■  1;  00247000 

DECLAhE  (SLOTH, SLOTL, SLOT, SLOTICGUNT)  BYTE  INITIAL  (0,0, 0,0);  00248000 

SLOTH  •  0;  00249000 

SLOTL  *  0;  00250000 

SLOT  •  0;  00251000 

SLOTfCOUNT  •  0;  00252000 

DECLARE  (NILHCELAYH,  NTDBDELAYL)  ALtRESS  IN  I T1  A  L  (0 , 0 )  ;  00253000 

NTDflDELAYH  «  0;  00254000 

NTDflDELAYL  -  0;  00255000 

DECLARE  SLCTiGUAHDITIHE  ADDRESS  I M I TI A L ( 2 08 ) ;  00256000 

SLGT1GUARDJ1 IBE  •  20H;  00257000 

DECLARE  iTLrlELAG,  POLLIFLAG,  A  0  TO  1  REPOLL  tT  L  AG )  BYTE  I  RIT I A  L  ( •  0  •  ,  0,  0);00258000 
TCr.iFLAG  ■  'O'  ;  00259000 

PCILirLAG  -  0;  00260000 

A D  TOlREPOLLl riAG  ■  0;  0026  1000 

DECLARE  (PCLLITAHLE1TXIFLAG,  N T D 8 1 P CLL I I N TE R HU P Ti r L A G ,  00262000 

TDRIFCLLlINTEhRUPTIFLAG)  BYTE  I RITI AL (0 , 0 , 0)  ;  00263000 

PCLLIIAELEJTXI1 LAG  *  0;  00264000 

NTOniPOLLSINTERRUPTIFLAC  =  0;  00265000 

TLR IPOLLI1NTERRUPTIFLAG  «  C ;  00266000 

DECLARE  (  CS1,  ChARl,  OUT1,  00267000 

MAITIACt,  SPACE  1 ,  LINECOUNT)  kill;  00268000 

C0T1  «  0;  002b9000 

-A1TING1  -  G;  00270000 

DECLARE  CriARSTDRE  1  (2000)  BYTE;  00*71000 

DECLARE  RSGCGIRT  1  (  150)  ADDRESS;  00272000 

DECLARE  DUTIABLE  1  (2C00)  BYTE;  00273000 

LECLARE  (  11,  TCI,  OUTCGURT  1  ,CC 1  ,  J)  ADDRESS  INITIAL  (0,0,  1,0,0);  00*74000 

J  «  C;  00*75000 

I  1  -  C  ;  00278000 

TCI  -  0 ;  00*77000 

OU1CGUNT  1  •  1;  00278000 

C  C  1  *  0;  00279000 

DECLARE  CS4DATASPCIRTER  ADDRESS  I RL T I A L ( 0 F F 0  Oh )  ;  00283000 

DECLARE  CSILATA  BASED  C S ID A T A * PC  I M T I R  BYTE;  00.14000 

CSIDATA  5PGIRTER  *  0FF008  ;  002Bt-000 

DECLAhE  IS  RUT3IDATASF0IRTER  ADDRESS  INITIAL  (DFF40K);  00286000 

DECLARE  INPUT3N0ATA  EASED  I N PUT  3  1 0  AT AI POI NTE R  BYTE;  00267000 

I RPUT3IDATA1 POINTER  *  OFFUDH;  00268000 

DECLARE  1NRUT5IDATAIF0INTER  ADDRESS  INITIAL  (OFEOOh);  00269000 

DECLARE  1NPUT5ILATA  BASED  I N PU T5 J D A T A I POI NTE R  BYTE;  00290000 

IN 1DI5IDATAI1 OINTER  *  OFEOOh;  00T91000 

DECLARE  OUTPUT  1  $ D A T A I PO I  NT E R  ADDRESS  INITIAL  (0FE40H);  00*32000 

LECLARE  CUTPUTliCATA  BASED  OUTP  U  I  II  LATA  IPOI  N  TE  R  BYTE;  00293000 

OUTPUT  11LATAIP0INTER  «  0PE4LH;  00294000 

DECLARE  CS  1  i C A T A  I F 0 1 N T E R  ADDRESS  INITIAL  (OFEOOH);  00295000 

DECLARE  CSUOATA  BASED  C  S  1 1 D  AT  A  J  PO  I  NT  E  R  BYTE;  00*96000 

CS  UDATAPPUINTER  •  OFEOOH;  00*57000 

DECLAhE  INPUT  103IDATAIPOINTER  ADLRESS  INITIAL  (CFEMOH);  00296000 

DECLARE  IN  PIT  1G3IDATA  BASED  I N PU T  1 0 3ID AT A IPOI NT ER  BYTE;  00259000 

INI UT  103IDATAIPGINTER  ■  u  F  L  40  H  ;  00300000 

DECLARE  IN  P  IT  105IC  ATA  IPOINTER  ADDRESS  INITIAL  (OJTOOH);  0030  1000 

DECLARE  IN i IT  105IDATA  bASED  I NPU I  1 0 51  DATA  IPO  I  NT ER  BYTE;  00  302000 

IN  PIT  1C5ILATAIPGINTER  *  OF/COH;  00303000 

DECLARE  OUTPUT  10  1SDATASP0INTER  ADDRESS  INITIAL  (0FF4DH);  00304000 

DECLARE  CUTl UT  10  1IDATA  BASEC  OU T r U T  10  1 1D A T A I PO I N T E R  BYTE;  003C5000 

OUTPUT  10  1IDATAIP01NTER  •  0FF40H;  00306000 

/*•/  00307000 

/••/  003C8000 

DECLARE  (C  P  ,C  BAR  ,  l  NC  ,  8  JF  .BOD  E  ,  00  309000 


BAITING,  SPACE)  BYTE ; 

EkC  «  0; 

HJF  «  0; 

WAITING  >  G; 

DECLARE  (N ,  NbHJGCI,  TOTALSNUHICI . 

RUniFC 2  ,  PCISPOINTER ,  NC,  NUHERCI,  RCISPDINTER,  GC1SPOINTER, 
NUnJkCl,  NCI3POIRTER,  CLKCNT,  TCIkITIAL,  TC  II  N1TIAL)  ADDRESS; 

TO IA  L$  NURSC I  •  0; 
nuhJcci  •  0; 
kUflJPCI  -  0; 
kbfliRCI  •  C; 
kbflJNCI  *  C; 

CLKCkT  ■  0; 

TCINITIAL  «  0; 

1C 11N1TIAL  •  0; 

DECLARE  (CLR,  C  LKF  ,  DELAY)  BYTE  I  k  1 II  A  L  (0 , 0 , 0)  ; 

CLK  •  0; 

C  LK  F  •  0; 

DELAY  •  0; 

DECLARE  (bUlFERSDELAY  ,  RSGSDELAY  )  ADDRESS  1N1TIAL(46,  640); 
EbFFERSCELAY  «  48; 

H5GEDELAY  *  160; 

DECLARE  (  1IOLL1,  GC,  OPOLL1.  6UIT.  ST.  N JT 1 ,  LCT.  CHAR3T . 

CHARUT,  CHA  R  51  .  CSITEST,  PRBSLCAD,  RRBS  LOAD ,  RRBJLOAD,  11  JT  2 . 

I ITiLOADIEkD,  hTTALOADJEND,  k T 1$ LOADJE k D , 

PTlf  LOAD .  RTIILOAD.  NTTSLOAD  ,  ClTSTABLESBblLD,  CSflODEICANCEL  1 . 
FClilEST,  CCSTEST.  RCISTEST,  RCIITEST,  C IS NUnS TEST ,  C JHODEJC ARC  EL , 
ECr.ilELl  ,  SPACEJ1EST,  DELAY  ERCUTINE ,  OUTiCHAR  )  LAbEL; 

DECLARE  (PCIHESET,  RCIRESET,  NC1EESET.  GCIRESET ,  ADRChAKGE  )  LABEL; 
DECLARE  (  STARSI kSERl .  HPUJT ABLE X B UILD  )  LABEL  ; 

DECLARE  (  (CISTORE,  RCISTORE,  RCISICRE  )  (366)  BYTE; 

DECLARE  GCISTORE  (32  1)  BYTE; 

DECLARE  CHAR3STORE (2000)  BYTE; 

DECLARE  HSGICOUNT (  150)  ADDRESS; 

DO  II  -  b  TO  148; 

K  SO  COURT  (I  1)  •  0; 

ERL; 

DECLARE  (EkCHYFT.  ERCTEST  )  LAbEL; 

OECLARE  SOh  LITERALLY  'OlH'  ; 

DECLARE  ClRODE  EYTE  INITIAL  (OH)  ; 

CJHODE  ■  OH; 

DECLARE  FC IlriEADER  DATA  ( • *P R IOR IT Y «C I :  ’ )  ; 

DECLARE  (I  .TC.OUTSCODNT,  CC)  ADDRESS  INITIAL  (0,0,  1,0); 

I  •  0; 

TC  *  0; 

CbTICOUNT  *  1; 

CC  *  0  ; 

DECLARE  RCIJHEADER  DATA  ('RCI:')  ; 

DECLARE  OUT1TAELE  (2000)  BYTE; 

DECLARE  kC  ilHEADER  DATA  ('NCI:')  ; 

DECLARE  FREihEACER  DATA  ( • »F R 10 R 1 T Y *R B ' )  ; 

DECLARE  HR  EIHEACER  DATA  ('RRB:')  ; 

DECLARE  kREIHEADER  DATA  ('RRB; • )  ; 

DECLARE  FTISHEACER  DATA  ( '  *P  RIOR  I T  Y  *TT  ' ) ; 

DECLARE  RTTEHEADER  DATA  (•BIT:*)  ; 

DECLARE  RTIIHLADER  DATA  ('RTT;')  ; 

/*  */ 

DECLARE  l  COHFOSE 1 ,  FT1,  RT 1 ,  R T  1 ,  GT 1 ,  POL LTA b LEBUI L D  1 ,  IPLITEST, 
CRECKIkHCLESET  1,  TTR  1 ,  TBLDUHF  1,  CTABLEBU1 LD 1 , 

HOLEERRORI,  HPUCIkbHT EST 1 ,  P7TR1,  R TTR 1 ,  kTIRI, 

POLL1TR1,  PTABlECUr.P1.  RTAbLEDDHF  1,  NTABLEDUHP  1,  GT  ABLEDUHP  1 , 
FOLLIAbLEDUHr  1,  RTAbLEBUILD 1 ,  PT A b L EBU I LD 1 ,  PO L LT A B L E DUHP 2 , 
RTAELIBUILCI,  FOLD DUHPBU I LD 1 ,  GrCLLBUILD 1 ,  CH EC KINS DELETE. 


00310000 
00311000 
00312000 
00313000 
00314000 
00315000 
00316000 
00317000 
00  318000 
00319000 
00320000 
00321000 
00322000 
00323000 
00324000 
00325000 
00326000 
00327000 
00  32bOOO 
00329000 
00330000 
0033  1000 
00332000 
00333000 
00334000 
00335C00 
00336000 
00337000 
00338000 
00339000 
00340000 
0034  1000 
00342000 
00343000 
00344000 
00345000 
00346000 
00347000 
00  34  BOOO 
00349000 
00350000 
00351000 
00352000 
00353000 
00354000 
00355000 
00356000 
00357000 
00356000 
00359000 
00360000 
00361000 
00362000 
00363000 
00364000 
00365000 
00366000 
00367000 
0036B000 
00369000 
00370000 
00371000 
00372000 
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NPOLLbUILEl,  RP0LLBUIL01,  OVERfLONl,  OV£RrLON2)  LABEL; 

00373000 

DECLARE  POLLIABLE1  (1473)  BYTE; 

0037b000 

DECLARE  (P&LLPGI  NTER  1 ,  PT 1COUNT 1 )  ADDRESS  INITIAL  (0,0); 

00  37  5000 

ROLLPCINTER1  •  0; 

00376000 

PT1COUNT1  *  0; 

00377000 

DECLARE  1TLHEADER  DATA 

00378000 

('(RICR1TY  ChECKIR  TABLE  DUMP ODH , OAH) ; 

00379000 

DECLARE  RTLhEADER  DATA 

00360000 

(  '  RCUTI AE  CHECKIN  TABLE  DUMP • ,ODK, OAK)  ; 

00361000 

DECLARE  MCHEADER  DATA 

00362000 

('AO  TRAfriC  CHtCKIM  TABLE  DURP *  .ODH.OAH)  ; 

00363000 

DECLARE  GTLHEADER  DATA 

00  36b000 

(•GROUP  CHECKIN  TABLE  DURP',  OCR,  OAH  ); 

00  36S000 

DECLARE  ADRERRORHER  DATA 

00366000 

(•**  INCORRECT  ADR  CHARACTER*.  **'); 

00367000 

DECLARE  EKRORHOR  DATA 

00366000 

(•**  INCORRECT  RODE  CHARACTER  **•); 

00369000 

DECLARE  TFRERRORhER  DATA 

00  39000D 

('TAbLE  TRANSFER  ERROR:  NO  CHECKINS'); 

0039  1000 

DEC1ARE  OVERFLONHCR  DATA 

00392000 

('•*  CHECKINS  AT  THE  LIHIT  **'); 

00393000 

DECLARE  POLLDUMRHCh  DATA 

0039b000 

(•ROLL  TABLE  DURR:  CHANNEL  A',  ODH.OAH  )  ; 

00395000 

DECLARE  ROLLHSGOVER  DATA 

00396000 

('•*  ALL  ROLL  MESSAGES  LOADED  ***); 

00397000 

/**/ 

00398000 

/*•/ 

00399000 

/**/ 

OObOOOOO 

/*•/ 

OObO  1000 

/•  INLTI ALL2AT10N  MSG  TO  TERHINAl  OPERATOR  */ 

00b02000 

DECLARE  STARTUPiMSG  DATA 

OObO  3000 

(•LHRRCVEL  ROLLING  SOfTNARE  -  VERSION  3:  10  JAN.  1960  •); 

OObObOOO 

1MT1AUMSG:  HALTING  •  BAITING  ♦  1; 

00405000 

LO  I  ■  1  TO  S«; 

00906000 

CUTTABLE  (TC  ♦  I)  •  ST  AN  T  IP*  HSC  (I  -1); 

00b07000 

LN  i  ; 

OObOdOOO 

TC  =  TC  ♦  5b; 

00b09000 

HSGCOUNT  (BAITING)  *  5b; 

00b  10000 

/*•/ 

00b  1 1000 

/••/ 

00b  12000 

✓  •*/ 

00b 13000 

/•*/ 

00b luOOO 

/♦•/ 

00b 15000 

/**✓ 

00b  16000 

/*•/ 

00b  17000 

/♦*/ 

00b  16000 

/•*/ 

00b 19000 

/«*/ 

00420000 

/»  SLOT  CALCULATION  a  lgo  R  IT  I.M  «/ 

00b 2  1000 

IPOLLl:  SLOT  *  INPUT  (226)  ; 

00  b  2  2000 

SLOT  •  SLOT  NOR  OFTH ; 

00423000 

SLCTL  *  SLOT  AND  OFOh; 

00b2b000 

SLCTL  *  SHE (S  LOT  L , b )  ; 

00425000 

SLCTrt  •  SLOT  AND  OFH  ; 

00426000 

i LOT  f COU  NT  *  SLOTH  »  10  ♦  SLOTL; 

00427000 

If  S  LCTICCUNT  <>  0  THEN  T  DHiFLAG  •  *1'; 

00426000 

ELS  l  TDMIF  LAG  «  'O'; 

00429000 

GO  TO  POLISXMIT; 

00430000 

/*  SLOT  IS  INPUTTED  AS  i  BCD  VALUES  ON  A  SINGLE  INPUT  */ 

00431000 

/*  THE  t  BCD  VALUES  ARE  MASKEL  OUT  INTO  SLOTH  AND  SLOTL 

*/ 

00432000 

/**/ 

00433000 

/♦*/ 

00434000 

/*  ROLLING  ALGORITHM 

*/ 

00435000 
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/*•/ 

/•V 

voimm:  ir  poiuruc  o  oih  then  go  to  ipollm; 

IF  PT  1COUNT  1  <  0  THEN  GO  TO  POLISRODESE  IDO  R ; 

ELSE  GO  TO  POilSOWLRSIEST; 

PJ  LLSf.GDEJ  ERROR  :  POLISFLAG  •  0; 

GO  TO  HODEERROR  1  ; 

POLLSOVERSTEST:  IF  POILSHSGSCOUNT  >*  TOTALSNUHSCI 
THEN  GO  TO  REPOLLSTEST; 

ELSE  GO  TO  OUTTA8LE1SSTATUSSTEST; 

HEPOLliTEST:  IT  AUTOf  REPOLLSrUG  *  C1H 

THEN  GO  TO  AUTOS  PC IISRESTART; 

POLLSFLAG  •  OH; 

GO  TO  POLISHSGSCCHPLETE; 

POLLSHSGiCGHPLETE:  WAITING  »  WAITING  ♦  1 ; 

10  I  •  1  TO  30; 

OUTTABLE  (TC  <I|  «  PCLLI’SGOVEf  (1  -  1)  ; 

END ; 

TC  *  TC  ♦  30; 
r.SGCOUNT  (WAITING)  *  30; 

EOLLSnSGSCOUNT  •  0; 

GO  TO  IPOLL11; 

DUTIABLE  ISSTATUSSTEST;  IT  TC  1  >  C  THEN  GO  TO  LPOLL11; 

ELSE  GO  TO  POIUNGSHOOESTEST; 

POLLING! HO LESTEST:  IF  TDHSFLAG  *  THEN  GO  TO  TDHSPOLl; 

ELSE  GO  TO  NONSTOnSPOLL; 

AUTOSPOL  L$  PEST  ART :  POLLSHSGSCOUNT  •  0; 

TDnS POL LSTES SLOT  •  TDHSPOLLSTXSSLOTSINITIAL; 
GO  TO  POLLSHSCSCOBPIITE ; 

NONSTEH! toll:  IF  NIOHSPOLLSl NTERHUPTSFLAG  >  OIH 
THEN  GO  TO  IPOLL11; 

IF  PETR ANSNlTlr LAG  <>  Oih  THEN 

POLLSHSGlCOUNT  •  PCLLSRSGSCOUNT  ♦  1; 

ELSE  RETRANSHITSFLAG  •  9; 

/*  non-idh  poll  hsg  con  position  »/ 

WAITING  1  *  WAITING!  «  1; 

DUTIABLE  1  (TC  1  ♦  1)  «  OIH; 

OUTTABLE 1  (TC  1  ♦  2)  •  *0>; 

DO  I  1  •  1  TO  3 ; 

OUTTABLE1  (TC  1  ♦  2  ♦  I  1)  * 

FOllTAE  LE  1  (I  1  ♦  POLL1RSGSCOUNT  *«-*>; 

EAD  ; 

OUTTABLE  1  (TC  1  ♦  b)  ■  03H  ; 

OUTTABLE  1  (TCI  ♦  7)  •  03H; 

/•*/ 

/*  E LA  C  IABLE  LOAD  */ 

DO  J  *  1  TO  7; 

NTDHS ElACSTABLE  (J)  •  OUTTA  B  LE  1  (TC  1  »  0); 

END; 

/••/ 

TCI  •  TCI  «  7; 

(ISOCOUNT  1  (WAITING  1)  ■  7; 

GO  TO  IP0LL11; 

TDHSPOLl:  II  TDHSFOllSINTERRUPTSFlAC  •  OIH 
THEN  GO  TO  IPOLL11; 

I!  SLOTSCOUNT  •  TDHSPOLLSTXSSLOT  THEN 

TLHIPOLlSTXSS  LOT  •  TDP.SPOLLSTXSSLOT  ♦  1; 

ELSE  GO  TO  I  POLL  1 1 ; 

IF  TlfliPOLLSTXSSlOT  >•  TDH JF OL l JTXSSLOTJ INITIAL  ♦  B  THEN 
TDHSPOLLSTXSSLOT  •  T DC 1POILSTX S SLOT  SI N I T IAL ; 

/*  T  tfl  POLL  HSG  COH POSIT  ION  */ 

IF  TOTALSNUHSCI  -  POILSHSGSCOUNT  >■  b  THEN  N  *  b; 

ELSE  N  •  TOTALSNUHSCI  •  POL L SHSGSCOUNT ; 


00*36000 
00*37000 
00*3(000 
00*39000 
00**0000 
00«*  1000 
00**2000 
00**3000 
00***000 
00**&000 
00**6000 
00**7000 
00***000 
00**9000 
00*90000 
00*91000 
00*92000 
00*93000 
00*9*000 
00*99000 
00*96000 
00*97000 
00*98000 
00*99000 
00*60000 
00*6  1000 
00*62000 
00*63000 
00*6*000 
00*69000 
00*66000 
00*67000 
00*68000 
00*69000 
00*70000 
00*71000 
00*72000 
00*73000 
00*7*000 
00*79000 
00*76000 
00*77000 
00*78000 
00*79000 
00*60000 
00*8  1000 
00*82000 
00*83000 
00*8*000 
00*89000 
00*66000 
00*67000 
00*68000 
00*89000 
00*90000 
00*9  1000 
00*92000 
00*93000 
00*9*000 
00*99000 
00*96000 
00*97000 
00*98000 
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NA1TINC1  •  HAITI  AG  1  ♦  1; 

LO  J  «  1  TO  A; 

POlUKSGiCOUNT  •  POLUHSGICOUNT  ♦  1; 

DUTIABLE  1  (TCI  ♦  1)  ■  01H; 

0UTTABLE1  (TCI  *2)  •  '0*; 

DC  II  *  1  TO  j; 

CLTTA6LE  1  (TC  1  ♦  2  ♦  I  1)  • 

POLLTAbLEI  (11  ♦  POLLlHSGSCOUNT  «  6  -6); 

END; 

TCI  «  TCI  ♦  6 ; 

ODTIAblt  1  (TCI)  »  OJH  ; 

END; 

BSGCCUNTl  (WAITING  1)  *  N  *  6; 

/•*✓ 

/**✓ 

/*  INPUT  FRUB  (10DEB  */ 

/•*/ 

/**/ 

1 POl l  1  1 :  CS  *  CSiDATA  NCR  OfFH; 

CS3  *  CS  ANL  06h; 

II  CSS  O  GWH  THEN  GO  TO  XX; 
c  H  AN  «  INPUUIDATA; 

Go  TC  ww; 

XX  :  CS  *  CS  AND  0 1 H ; 

If  C  S ■ G 1 h  lhEN  GO  10  GC  ; 

ww :  If  CC  )  0  THEN  GO  TO  ICT; 

USE  GO  10  0P011I; 

/•  nCLE.1  INFUT  */ 

GC ;  CHAR  -  1NPUT3IDATA  XOF  OFTH; 

CC*  CC ♦  I ; 

If  CC  >*  2  CC J  THEN  GO  TO  ICT; 

CHAN  4  STONE  (CC)  *  CHAN  ; 

If  CC* 1  THEN  GO  TC  ST ; 

USE  GO  TO  r.JTI; 

/*  ENCRYPTION  TEST  */ 

ENCTtST:  If  CHAR  *  OAAH  THEN  GO  TO  INCRYP1; 

ELSE  GO  TO  LCT ; 

/«  SOH  TEST  »/ 

ST:  II  ChAK  *  SOh  THEN  GO  TO  ICT; 

If  ChAR  *  THEN  GO  TO  ICT; 

If  ChAR  -  U  A  A  H  THEN  CO  TO  ENCRYPT; 

ELSE  rJ!*1; 

00  TO  ICT; 

ENCRYPT:  ENC  *  ENC  ♦  1; 

GO  TO  ICT; 

/*  H PU  JOB  TEST  •/ 

HJT 1 :  IF  H  J I  *  I  THEN  GO  TO  ICT; 

If  CC  *  2  THEN  GO  TO  ENCTEST; 

If  ENC  •  2  THEN  OUTPUT  (233)  •  1 1  h ; 

IT  Cc*j  IHEN  GO  TO  CRAR3T; 

If  CC*6  THEN  GO  TO  CHAR6T; 

If  CC-9  THEN  CO  TO  CHAR9T; 

EISE  CO  TO  ICT; 

CHARjT:  If  CHAR  *  ADR  1  THEN  GO  TO  ICT; 

ELSE  BJ  E  *  1 ; 

GO  10  LCT ; 

CHAR6T:  ir  CHAR*  ADR2  THIN  GO  TO  ICT; 

ELSE  rj»-i; 

GO  To  ICT; 

CHARST:  If  CHAR*  AUR3  THEN  GO  TO  IC1; 

ELSE  fl  J  1*1; 

/*  LAST  CHARACTER  TEST  •/ 

ICT:  TCLN  *  INPUT (231) ; 


00699000 
00900000 
00901000 
00902000 
00903000 
00906000 
00909000 
00  906000 
00907000 
00900000 
00908010 
00909000 
009  10000 
00911000 
00912000 
00913000 
009  16000 
00919000 
00916000 
00917000 
00918000 
00919000 
00920000 
0092  1000 
00922000 
00923000 
00926000 
00929000 
00926000 
00927000 
00928000 
00929000 
00930000 
00931000 
00932000 
00933000 
00936000 
00939000 
00936000 
00937000 
00938000 
00939000 
00960000 
0096  1000 
00962000 
00963000 
00966000 
00969000 
00966000 
00967000 
00968000 
00969000 
00990000 
00991000 
00992000 
00993000 
00996000 
00999000 
00996000 
00997000 
00998000 
00999000 
00960000 
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1CLK  •  ICLK  AND  0)0; 

11  1C  LK  •  TCLKP  THEN  CO  TO  OPOli.1; 

1CLKC  NT  *  TCLKCNT  ♦  1; 

TCLKP  •  TCLK; 

1)  1CLKCNT  <  /4H  THEN  GO  TO  OFCLL); 

ICLK  »  0; 

TCLKP  *  C; 

TCLKCNT  •  0; 

CCiPkESENT  -  CCIFNESENT  ♦  1; 
ir  CCiPkEGENI  >  CC  THEN  CCiPkESENl  •  0; 

IlSl  Gc  10  OPOLL  1 ; 

OUTPUT  ( *  33)  •  ION ; 

INC  ■  0  ; 

/**/ 

/•*/ 

/*♦/ 

/•  ED  AC  ALGOrITHH  -  NON  TOO  POLLING  BSG’S  •/ 
EDACikCUlIM:  If  E  L  AC  S  f  LAG  <>  Olh  Tl.EN  GO  10  HJT2; 
i)  rjr  <>  1  THEN  GO  TO  0 JT 2  ; 

II  rO  L  Li!  LAG  <>  01H  THEN  GO  10  H  JT2  ; 

If  TDKirLAG  <>  'O'  THEN  GO  10  RJH; 

II  CC  <>  7  IHEN  GO  TO  B  JT2  ; 

DC  J  »  1  TC  7 ; 

If  ChAkisTONE (J)  <>  NTDBIECACSTABLE(J) 

1PEN  GO  10  RElRANSHITtl LAGiSET; 

tAD  ; 

AETNA  NSBITifLAG  »  OH; 

BEPULLIfLAGSCOUNT  *  0; 

GO  TO  r  JT*  ; 

kElhANSHlTl) LAGiSEl :  R El  BA N SH1TJ f L AG  •  01H; 

REPCLUf  LAGiCOUNT  •  REPOLLI f LAOSCOUNT  ♦  1; 

If  BEPuLLifLAGiCOUNT  >  3  THEN  EEPOLLlfLAOlCOUKT  •  C; 

If  kEPOlliriAGlCOUNT  ■  0  THEN  BETRAN SB  I Ti I  LAG  »  OH; 

/**/ 

/•  HCDE  1  ESI  C  fORrATTING  */ 

HJIi:  ir  !1Jf*l  THEN  GO  TO  HPUSTAbLElBUILD  ; 

BODE*  CHARJSTOBE  (2)  ; 

If  HOLE  «  'C*  THEN  GO  TO  CSiTEST; 

ir  hole  -  'L'  then  go  to  csitest-, 

If  BODE  -  1 E 1  THEN  GO  TO  CSJTEST; 

ir  BODE  *  ' E '  THEN  GO  TO  PRBJLOAC; 

If  BCDE  *  'N*  THEN  Go  TO  NRBiLOAD; 

ir  BODE  *  'k*  THEN  GO  TO  RRBJLOAL; 

If  BODE  *  *  X 1 1  HEN  GO  TO  PTTI  LOAD ; 

IT  BODE  «  'Y'  THEN  GO  TO  RTTSLOA  C ; 

If  HOLE  «  '2'  THEN  GO  TO  NTTSLOAC; 

GO  TO  HPUilAdLEIBUILL ; 

/**/ 

/**/ 

/•  CHECKIN  STATUS  TEST  */ 

CSiTEST:  II  CSHGDE*  '1'  THEN  GO  10  cCJTEST; 

ST AASINSER 1 :  CHARSSTORE  (1)  •  •?<  ; 

GO  TO  OUliTABLEiBUILL; 

/•  CHARACTER  COUNT  TEST  •/ 

/«  IHE  CC  TEST  REvUlRES  PCI/RC1/NCI  CHECKINS  TO  HAVE  */ 

/*  A  B 1 N1 BUB  Of  V  CHARACTEkS.  HISSAGES,  HONEVEh,  HAY  •/ 

/•  BE  APPENDED  A! TEN  THE  9TH  CHARACTEh.  */ 

CC1TEST:  I!  CC  >*  9  1  HEN  GO  TO  PCIilEST; 

ELSE  CHAhiSTORE  (1)  •  ; 

GO  TO  OUliTABLEiBUILL; 

PCIilEST;  if  BODE  O  *C  <  THEN  GO  TO  RCISTEST ; 

ELSE  NUR1PCI  >  NLBiPCI  «  1; 

PCIiPOINlEh  ■  4  *  (  NUHiPCI  -))♦!; 


0056  1000 
00562000 
0056  3000 
00564000 
00565000 
00566000 
00567000 
0056b000 
00569000 
00570000 
00571000 
00572000 
00573000 
00574000 
00575000 
00576000 
00577000 
00578000 
00579000 
00  580000 
00581000 
00582000 
005B3000 
00584000 
00585000 
00586000 
00567000 
00588000 
00589000 
00590000 
00591000 
00552000 
00593000 
00594000 
00595000 
00596000 
00597000 
00598000 
00599000 
00600000 
0060  1000 
00602000 
00603000 
00604000 
00605000 
00606000 
00607000 
00608000 
00609000 
00610000 
006 1 1000 
00612000 
00613000 
00614000 
00615000 
006:6000 
00617000 
0 06)6000 
00619000 
00620000 
00621000 
00622000 
00623000 


1)0  1  «  6  IC  9  ; 

00620000 

PClSSTOkt  (FCISP01NTER)  -  CHAR  JSICRE  (I)  ; 

00626000 

PC ISPGl N1 E  k  •  PC2S POINTER  4  1  ; 

00626000 

END  ; 

00627000 

Do  1  ■  0  U  12  ; 

00628000 

OOTSIABLEITC  4  1  4  1)  •  PCI JH l A  D  ER  (I)  ; 

00629000 

END; 

00630000 

NC  -  CC  4  13; 

00631000 

TC  «  TC  4  13; 

00632000 

00  TO  CliNDP.tTEST; 

00633000 

kClIIESI:  If  flODE  <>  'D*  THEN  GO  TC  NC1STEST ; 

00636000 

list  kuniRti  «  NurERCi  4  i; 

00636000 

kC  IS  f  01  N  I E  R  =  4  *  (  kUHSRCI  -  1  )  4  1  ; 

00636000 

DO  I  *  6  TC  9  ; 

00637000 

kCIiSIORl  (RCIlfOIkTER)  «  CHA  K  i  STOR  E  (I)  ; 

00636000 

RCliPGIMEh  -  RCIf  POINTER  ♦  1; 

0063900C 

END; 

OObDOOOO 

DO  I  *  0  TO  3  ; 

00661000 

OUTSIABLE  (TC  4  14  1).  RCIJH  EAllR  (I)  ; 

00662000 

END; 

0066  3000 

»C  *  CC  ♦  «; 

00666000 

TC  -  1C  4  <4  ; 

00666000 

CO  TO  CliNtrSTEST; 

00666000 

kCIITEST:  MjrSNCI  *  NUHJNCI  ♦  1; 

006«7000 

NClSPCINlEk  .  0  *  (  NUflSNCI  -  1  )  4  1  ; 

00666000 

DO  1  •  fc  TO  9  ; 

00669000 

NCISSTOkt  (NCI  JPOlkTER)  *  CHAk  4  S  I CR  E  (I )  ; 

00660000 

NCUPCIMEk  *  NClJ  POINTER  4  1  ; 

0066  1000 

END; 

00662000 

DO  1  «  0  TC  3  ; 

00663000 

OUTITAELL  vIC  4  I  .1)  .  k  C I  SHE  A  I  In  (I)  ; 

00666000 

END; 

00666000 

NO'  *  CC  4  i.  ; 

00b66000 

TC  *  It  4  4; 

00667000 

/**/ 

00668000 

/**/ 

00669000 

CUNUKSTESl :  If  NUr.IPCI  4  NUHjkCl  4  NUHSNCI  >=  60 

00660000 

THEN  CO  TO  CIRUCESCANCEL; 

0066  1000 

till  CC  TC  OD’TS  TABL  ESBL'I  LC  ; 

00662000 

/*  ALL-CAll  CHECKIN  HOCE  CANCEt  */ 

00663000 

CIHDDEiCANCll:  If  POlUflAC  ■  Clt.  ThEN  GO  TO  0  Ef.OD  EEC  A  NC  E 1 1  ; 

00666000 

to  11  *  1  TO  37; 

00666000 

ODTTAblE  1  (1C14I  ))  .  OV  Ek  HON HDk  (I  1  -  1)  ; 

00666000 

EKE  ; 

00667000 

101  *  TCI  4  27; 

00668000 

HAITI  KOI  »  .AITING  1  4  1; 

00669000 

H5GC0UN  T  T (HAITI  NO  1)  *  37, 

00670000 

/*  CHECMN  HOCE  CANCEL  HSG  TC  TERHINAl  OPERATOR 

•/ 

00671000 

CSKOtlSCANCEll:  CC  1  ■  110  37; 

00672000 

ODl  STABLE  (TC  ♦  I)  •  0 VI k f 10 k HDR  (I  -  1)  ; 

00673000 

END  ; 

00674000 

TC  »  TC  4  27; 

00676000 

NO  •  NC  4  *  7 ; 

00676000 

CirtGlt  *  'O’; 

00677000 

GC  TO  GUTSTAf LETbUI LD  ; 

00678000 

/••/ 

00679000 

/**/ 

00660000 

RPUAlAbLEScDILG;  NC  *  CC  ; 

0068  1000 

GUTSTAbLlf bCILO:  CO  I  •  1  TO  CC ; 

00682000 

ODIST  ABLE  (TC  ‘  I)  •  CHA  RS  STOR  l  (I }  ; 

00683000 

END; 

00664000 

TC  •  TC  4  tC  ; 

00666000 

NAlIIkb  •  .AITING  4  1; 

00686000 
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n SG*  COU  AT ( A  A ITI AG)  ■  DC; 
tC  »  0  ; 

AC  •  0; 

RJP  »  o; 

OUTPUT  (2  33 )  «  1GH; 

LAC  *  C ; 

00  10  0PCDL1; 

/*•/ 

/**/ 

PAbSLOAD:  DC  I  »  0  TC  11  ; 

CUTiTAbLL  (1C  ♦  I  4  1)  •  PftbSHLACIR  (I)  ; 

LAC; 

AC  *  CO  «  12  ; 

TC  -  TC  ♦  12  ; 

GC  TO  OUTSIABIESBUILD; 

AAbl LOAD :  CC  1  *  0  To  3  ; 

OUTITABiL  (1C  «  I  ♦  1)  -  KABSMEALLR  (I)  ; 

PAD; 

AC  *  CC  ♦  0; 

TC  -  TC  ♦  u; 

GO  10  CUTSIABLESEUILD ; 

AKBJLOAD:  10  1  ■  0  TO  3  ; 

COTSTAbii  (TC  ♦  l  ♦  1)  *  Aft  BIN  PACER  (1)  ; 

LAC; 

AC  »  CC  ♦  4  ; 

TC  «  1C  ♦  0  ; 

GO  10  OUTS  TAbLtSbUILL ; 

/«*/ 

/♦•/ 

PT1SD0AD:  IP  CfflOCl  *  'O'  THEA  GC  IC  STAHtlASEftT; 

IP  CC  <  9  THEN  GO  TO  ST  A  ft SI A S l ft T  ; 

LG  I  *  t  TO  CC  bl  4; 

AURSPCI  •  AURSPCI  ♦  1; 

PC  IS  PCI  AT  Eft  »  0  *  (AURSPCI  -  1)  ♦  1  ; 

00  J  »  G  TO  I; 

PC  II  STORE  (  PCIIPOIATER  )  •  CHARSSTOA E (1 » J)  ; 

PC1SP0IATES  *  PCIJPOIATEft  ♦  1; 

LAI; 

If  AUrSPCI  «  AURSACI  ♦  AURSACI  >*  60  THLA  GO  TO  P ITS  10  ADS E A E ; 
IP  (CC  -  I)  <  A  ThEA  GO  TO  PT 11 ICA  DS  EA  D; 

LAD  ; 

PTiSLOADSEND:  DO  I  •  0  TO  11; 

OUTSTAbLl(TC  ♦  1  ♦  1)  •  PTTSH  EATER  (I)  ; 

LAD; 


AC 

*  CC  * 

1*  ; 

TC 

■  TC  ♦ 

i*  ; 

ir 

AURSPCI 

♦  AURSACI 

•  AURSACI 

>  •  bC 

THEA  GO  10  CSRODESCAACEL 

GO 

1G  GUIS 

TAeilSbUILt 

• 

PT 

TS  LOAD : 

11  CSRODE  > 

•O'  THLA 

GC  IC 

STAASl A  SLAT ; 

IP  CC  < 

9  ThEA  GC 

TO  STAftSI 

AS  LAI  ; 

00  I  ‘  P  IC  CC  BP  4; 

AUnPACI  •  AURSACI  ♦  1; 

aciapoiater  «  a  «  (aursrci  -  i)  ♦  i; 

DO  J  *  C  TO  J; 

AC  IS  STORE (  RCISFOIATER  )  •  CHAHSSTOA  £ (I  ♦  J)  ; 

AC 1SP0IA1EA  •  RC1S  PO I  ATE  ft  ♦  1; 

LAO; 

IP  AURSPCI  ♦  AURSACI  ♦  AURSACI  >•  60  THEA  GO  TO  ft T TSIO ADS EA C ; 
IP  (CC  -  I)  <  A  THEA  GO  TO  RT1SDCADSEAD; 

LAD  ; 

ATTSLOADSEAD:  DO  I  •  0  TO  3 ; 

OUTSTAb  LE  (TC  ♦  I  ♦  1)  *  ft  TTSH  E At  IK  (I)  ; 

LAD; 


00667000 
00688000 
00689000 
00690000 
00691000 
00692000 
00693000 
00694000 
00695000 
00696000 
00697000 
00698000 
00699000 
00700000 
00701000 
00702000 
00703000 
00704000 
00706000 
00706000 
00707000 
00708000 
00709000 
007  10000 
00711000 
00712000 
00713000 
00714000 
00715000 
00716000 
00717000 
007 1B000 
00719000 
00720000 
00721000 
00722000 
00723000 
00724000 
00725000 
00726000 
00727000 
00728000 
00729000 
00730000 
00731000 
00732000 
00733000 
00734000 
00735000 
00736000 
00737000 
00738000 
00739000 
00740000 
0074  1000 
00742000 
00743000 
00744000 
00745000 
00746000 
00747000 
00748000 
00749000 
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AC  *  CC  ♦  4  ; 

TC  •  IC  ♦  4  ; 

ir  muhsfci  ♦  nuhsrci  *  muhsmci  >-  bo  them  go  to  cskodescancec; 

GO  TO  CUTSIABEEIBUIEC ; 

N  T  T1 COAC :  IE  CSnCDE  •  ’O'  THEM  GO  TC  STAR  SI MSE  RT ; 

II  CC  <  i  THEM  GO  TO  STARSIMS  ERI ; 

DO  I  -  b  TO  CC  BY  4 ; 

MUHSNCI  •  MUHSMCI  ♦  1; 

NCISPOIMTER  •  4  *  (MUHSMCI  -  1)  ♦  1; 

CO  J  «  0  TO  3; 

NCIS STORE (  MC1SP0IMTER  )  •  CHAR S STORE  (1 ’J)  ; 

MC1SP0IMTER  •  MCISFOZMTER  ♦  1; 

EMC; 

IF  MUnlFCI  ♦  MUHIECl  ♦  MUHSKCI  >•  BO  THEN  GO  TO  K  7TSL0 ADS  EMC; 
If  (CC  -1)  <  4  THEM  GO  TO  KTTS CC ADS  EM D ; 

EKD  ; 

NTTSECADIENC:  CO  1  *  0  TO  3; 

OUTSTAB  CE  (TC  ♦  I  ♦  1)  *  K  TTS H  E At  ER  (I )  ; 

EMC; 

KC  *  CC  ♦  4; 

TC  *  TC  ♦  4  ; 

IF  NOHSPCI  *  MUHSKCI  ♦  MUHSKCI  >•  6G  THEM  GO  TO  CSHOD ESCA MC E L ; 

CO  To  OUTSTAbLESBUILC; 

/*  r.H  CLTPUT  */ 

OPGCil;  it  DECAY  «  1  ThEM  GO  TO  CECAYSROUTI M E; 

IF  NAITING  <-  0  THEM  GO  TC  IPOEL101; 

IF  1C  >  0  ThEM  GO  TO  EOHPTEST; 

ECSE  GO  TO  IP0EE1C1; 

EOHSTEST:  IE  OUT  SCOUMT  <  HSGSCOUKT(J)  THEM  GO  TO  SPACESTEST  ; 
USE  DECAY  ■  t; 

SPACESTEST:  IF  R  S2  32  3  FCAG  »  Clh  THEM  GO  TO  R  S<  32  SSPAC  ESTEST ; 
SPACE  ■  INrCISSCATA  XOh  OFFH; 

SP«CE  ‘  SPACE  AND  Clh ; 

IE  SPACE  =  C  2  H  THEM  GO  TO  OUTSCHAh  ; 

ECSE  DECAY  «  0; 

GO  TO  1E0C  C  10  1  ; 

/**/ 

R  S  «  3  2 i SPAC  EE  TEST :  SPACE  *  INPUT(<37); 

SPACE  ■  SPACE  AND  01H; 

IT  SPACE  *  Olh  ThEM  GO  TO  OUTSCHAR; 

ECSE  DECAY  «  G  ; 

GO  TO  IPO  CC  10  1  ; 

/**/ 

CE  CA  Y  S  HOOT  I  ME  :  CEK  •  IMPUT(230); 

CEK  *  CEK  AMD  OIK  ; 

II  CCK  *  CCKP  THEN  GO  TO  IPOCI101; 

CCKCMT  *  C  CMC  N  T  ♦  1; 

CCKP  *  CCK; 

IE  CCKCNT  <  EUEE'EEiSDECAY  T  h  t  N  CO  TO  IP0CC1G1; 

OUTPUT  (<.3  5)  »  01.  ; 

IE  CCKCNT  <  HSGSDECAY  THEN  CO  TO  IP0CC1U1; 

DECAY  =  C; 

CCKCNT  »  U ; 

GO  To  IPOCC101; 

/•  V 

/*  OUTPUT  TO  rpu  »/ 

/••/ 

GUTChAh:  IE  KS2J2SEEAG  «  01H  THEN  UU  TO  R Si  3 21 OUTC HA S  ; 

OUTPUT  (<Jt)  •  01H; 

uUTPUIEiDAIA  •  OUTST  ALEE  (OUTSCOUNT)  XOR  OlFH; 

CU1SC0UMT  *  OUT ICOUMT  ♦  1  ; 

GO  TC  SHiriCOMM; 

/♦•/ 


00750000 
0075  1000 
00752000 
00753000 
00754000 
00755000 
00756000 
00757000 
00758000 
00759000 
00760000 
00  76  1000 
00762000 
00763000 
00764000 
00765000 
00766000 
00767000 
00768000 
00769000 
00770000 
0077  1000 
00772000 
00773000 
00774000 
00775000 
00776000 
00777000 
00778000 
00779000 
00760000 
0076  1000 
00762000 
00783000 
00764000 
00765000 
00766000 
00767000 
00766000 
00769C00 
00790000 
00791000 
00792000 
00793000 
00794000 
00795000 
00796000 
00797000 
00798000 
00799000 
00800000 
0060  1000 
00802000 
00803000 
00604000 
00605000 
00b06000 
00607000 
00608000 
00809000 
00610000 
006 1 1000 
00812000 


hS^3il0UlC«*8:  0 UI PUT  (2  37)  *  25H; 

OUTPUT (236)  •  OUTSTAELE (OUTSCOUNT) ; 

OUT! COUNT  •  OUTSCOUNT  ♦  1; 

SH IF  T  DC* N :  If  OUTSCOUNT  <•  HSGSCOUNl(l)  THEN  GO  TO  IPOLL101; 
OUTPUT  (237)  *  1  5h ; 

CO  1  *  OUTSCOUNT  TO  TC  ; 

OUTSIA6LE  (  1*1-  OUTSCOUNT  )  •  OUTSTABLE(  I  )  ; 

ENL ; 

CO  1  *  1  TC  UNITING  ; 

ft  SGSCGU  NT  (1)  .  HSGSCOUNT  (1*1)  ; 

cnc; 

TC  *  TC  -  (  OUTSCOUNT  -1  )  ; 

HSGCOUNT  (N  SITING)  *  C; 

WAITING  -  aAITING  -  1  ; 

OUTSCOUNT  =  1  ; 

If  WAITING  *  C  ThEN  TC  *  0; 

/*  TX  C  NX  HAJOR  LOOP  -  HPU  */ 

/**/ 

/**/ 

/•V 

lPcLLIOI:  1}  R  S2  32S  F  L AG  «  01H  THIN  GO  To  RS  2  3c  1 1 NPUT  1  ; 

ELSE  GO  TO  IPOLLXOI  1; 

/*♦/ 

RSc3cSlNXUl X;  C S  1  -  INPUT  (237)  ; 

CS1  *  CS1  AND  02H ; 

If  csl  «  02H  THEN  CHAM  »  INPUT(236); 

ELSE  GO  TO  IPOLL1G11; 

CO  TO  NS232SGC1; 

/••/ 

IPOL11G11:  CS1  »  CS  IS  DATA  XOR  OrFH; 

CS4  *  CS1  ANC  CUM; 

II  CS4  <>  C4H  THEN  GO  TO  XT; 

CHAU  *  lNPCriOJSEATA; 

GO  10  VL\ 

XT:  CS1  *  CS1  ANt  0 Ih ; 

IF  CSX  «  QXH  THEN  GO  TO  GC 1 ; 

I'll  IF  CC1  >  G  THIN  CO  TO  LCT1; 

ELSE  GO  TO  OPOlllOX; 

/•*/ 

/*  INPUI  fKCH  HPU  */ 

/**/ 

GC  1 :  CHARI  *  INPUT  103SDATA  XOR  UFFH; 

RSc32 SGC  1 ;  CC 1  *  CC 1  ♦  1; 

IF  CCl  >*  2000  THEN  GO  TO  LCT 1  ; 

CHARSIOhll  (CC  t)  -  CHARI  ; 

/*  */ 

/•  hEACER  TEST  */ 

/*  */ 

IF  Ctl  <«  3  THEN  go  TO  LCTI; 

IF  CCJ  *  u  THEN  GC  TO  CHAR4T1; 

If  CC1  >•  5  THEN  GO  TO  LCTI; 

CMAR4T1:  IF  CHARI  *  21H  THEN  OUT  1  =  0; 

ELSE  GC  TO  OUTf LA G 1 ; 

GC  TC  LCTI; 

CUTILAGl;  OUT  X  *  1; 

/•*/ 

/*  LAST  CHARACTER  TEST  */ 

/**/ 

LCTI;  TC  LA  1  «  1NPUT(2  30); 

TCLK  1  »  TC  LA  X  AND  01H; 

If  TCLK1  *  TCLK  P  X  THEN  GO  TO  CPOllXOl; 

TC  LK  C  NT  X  ■  ICLKCNTX  ♦  1; 

TCLKP1  •  TCLK  X ; 


00813000 
00814000 
00815000 
00816000 
00817000 
00818000 
00819000 
00820000 
00821000 
00822000 
00823000 
00824000 
00825000 
00826000 
00827000 
00628000 
00829000 
00830000 
00631000 
00832000 
00633000 
00834000 
00836000 
00836000 
00637000 
00e38000 
00639000 
00640000 
0064  1000 
00642000 
008*3000 
00844000 
00845000 
00846000 
00847000 
00648000 
00849000 
00650000 
0085  1000 
00852000 
00853000 
00854000 
00655000 
00856000 
00657000 
00858000 
00659000 
00860000 
0086  1000 
00662000 
00863000 
00864000 
00865000 
00866000 
00667000 
00868000 
00669000 
00870000 
0067  1000 
00672000 
00673000 
00674000 
00675000  / 
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If  TCLKCNI1  <  MSGSOVER JDELAT  THEM  GO  TO  OPOLLIOI; 

1C  IK  1  *  0; 

1CLKP  1  «  0  ; 

ICLKCKT1  -  0; 

CCliPRESERI  -  CC  1$ PRESENT  ♦  1; 
ir  CCISPRESENT  >  CC1  THE*  CCISPRESENT  •  0; 

USE  GO  TO  OPOLLIOI; 

/**/ 

✓  **/ 

/*  */ 

/*  */ 

/*  OUTPUT  COMPOSITION  */ 

/*  */ 

/*  */ 

GUIPGTJCuHPGSE:  If  OUT!  <>  1  THEN  GC  TO  COMPOSE  1 ; 

00  CASE  EATJMSGSf LAG  1 ; 

Go  TO  MOL  EM  SC UTPUT SCOn POSE  1  ; 

II  POLLirLAG  •  01H  THEN  GO  TO  EATSnSCI; 

ELSE  GO  TO  MODEHSOUTPU1JCOMPOSE1; 

GO  10  LATSMSG1; 

ERL; 

r.oLEnicuiPuiiccnposEi :  ir  charstor e  i  («)  •  **■  the* 

GO  TO  mocihsoutputscohpose2 ; 

ul)  II  ■  1  TO  CC  1 ; 

OuTTAbLE  1  (TC  1  ♦  II)  *  CHARSTORE  1  (II)  ; 

ERL; 

TCI  -  TCI  ♦  CC )  ; 

6A1TING1  *  N A 1TI NG  1  *1; 

MSGCGURT  1  (HALTING  1)  ■  C  C  T  ; 

EATJnSGl:  CCI  «  0; 

GUTI  »  0 ; 

GO  1 C  GPCL  L  10  1 ; 

/•*/ 

/«  LOOP-AROURD  OUTPUT  MESSAGE  COMPOSITION  */ 

/**/ 

MOEEMJGUTPGIKCjnPCSEL  :  DO  I  1  *  6  TO  CCI; 

OUTTABLE  1  (TC  1  ♦  I  1  -  3)  *  CH  Ah  SIOK  E  1  (I  1)  ; 
END  ; 

TCI  *  TCI  ♦  CC)  ; 

•A1TING1  *  rAITIKGI  ♦  1; 

MSGCOURT  1  (WAITING  1)  *  CCI  ; 

CC  1  •  0  ; 

OUT)  *  C; 

GO  TO  OPOLLIOI; 

/•*/ 

/•  COM,  POSITION  PROGRAM  «/ 

/*  */ 

/*  T  L SI  MOLE  CHARACTER  */ 

/*  */ 

COMPOSE!:  It  CCI  <  6  THEN  GO  TO  MGLEERROR); 
ir  CHARSTORE  1  (L)  <>  A0R1  THEN  GO  TC  ADRERRCN  1 ; 

If  ChARSTORE  1  (7)  <>  A  DR  2  THEN  GO  TO  ADRERRGR1; 

If  ChARSTORE  1  (b)  <>  ADR  3  THEN  GC  TC  ADRERRORl; 

/«*/ 

/*  COMSUP  MOLE  RECOGNITION  CHARACTERS  */ 

/♦*/ 

If  CHARSTORE  1  (b )  •  'A*  THEN  GO  TC  GCIRESET; 

If  CHARSTORE  1  (S)  ■  'E*  THEN  GO  TO  GTl; 

Lf  CHARSTORE  1  (6)  «  *C  •  THIN  GO  TO  PT1; 

If  ChARSTORE  1  (S)  -  *D'  THEN  GO  IC  RT  1 ; 

IT  ChARSTORE 1 (S)  •  •£•  THEN  GO  TO  ATI; 

I)  ChAnSTOREI ( 9 )  ■  THEN  GO  TC  PCIRLSET; 

II  CHARSTORE  1  (6)  •  ’O'  THEN  GO  To  RCIRESET; 


00876000 
00877000 
00878000 
00679000 
00860000 
00681000 
00862000 
00883000 
00888000 
00886000 
00886000 
00867000 
00888000 
00889000 
00690000 
0069  1000 
00692000 
00893000 
00896000 
0089  6000 
00896000 
00897000 
00698000 
00899000 
00900000 
0090  1000 
00902000 
00903000 
00906000 
00906000 
00906000 
00907000 
00908000 
00909000 
009  10000 
00911000 
00912000 
00913000 
009  16000 
00916000 
00916000 
009)7000 
00918000 
00919000 
00920000 
00921000 
00922000 
00923000 
00926000 
00926000 
00926000 
00927000 
00928000 
00929000 
00930000 
0093  1000 
00932000 
00933000 
00936000 
00936000 
00936000 
00937000 
00938000 
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IF 

CHARSTORE  1  (9) 

»  'h* 

THEN 

GO 

TO 

NCIRESET; 

00939000 

II 

CHARSTORE  1  (9) 

•  *1* 

THEN 

GO 

TO 

ADRCHANGE; 

00940000 

if 

ChARSTCRl  1  (&) 

.  <  J  < 

THEN 

GO 

TO 

PO  LLS  ROD  E  t 

0094  1000 

II 

CHARSTORE  1  (9) 

*  *K  • 

THEN 

GO 

TO 

NONSTOHSDELAYSSET ; 

00942000 

IF 

ChA  RS  TORE  1  (9) 

*  'L' 

THEN 

GO 

TO 

POLLJINTIRRUPT; 

00  94  3000 

if 

CHARSTORE  1  (9) 

»  '  H  ' 

THEN 

GO 

TO 

POLL! ABLEBU  XLD 1 ; 

00944000 

IF 

CHARSTORE  1  (9) 

*  '  H  1 

THEN 

GO 

TC 

CHECKINSDELETE; 

0094S000 

If 

ChAKSTGRE  1  (9) 

*  ‘O1 

THEN 

GO 

TO 

SLOTSREAS5IGN ; 

00946000 

IF 

ChARSTCRE 1 (9) 

.  ipi 

THEN 

GO 

TO 

EDACiHODEISET; 

00947000 

I 

F  CHAR  STORE  1  (9) 

*  *0 

*  THEN  G 

0  TC  RS232SHODESSET; 

00948000 

PUTEST:  If  CHARSTORE  1  (9)  » 

P  * 

THEN  GO  TO  PROGRAIISSTART ; 

00949000 

If 

CHARSTORE  1  (9) 

« 

THEN 

CO 

TC 

CHECKINHOOESET1; 

00990000 

If 

CHARSTORE  1  (9) 

«  •  x  * 

THEN 

GO 

TC 

TTR  1; 

0099  1000 

It 

CHARS1GRE1  (9) 

•  •  u  • 

THEN 

GO 

TO 

TBLOUHP 1 ; 

00992000 

If 

ChARSTOhE  1  (9) 

.  •  V* 

THEN 

GO 

TO 

EATSASGSSET; 

00993000 

IF 

CHARSTORE  1  (9) 

m 

•X  • 

THEN 

GO 

TO 

PITH  1; 

00994000 

IF 

CHARSTORE  1  (9) 

m 

•Y  • 

THEN 

CO 

TO 

R  TTR 1 ; 

00999000 

IF 

CHARSTORE  1  (9) 

m 

•i* 

THEN 

GO 

TO 

NITR  1 ; 

00996000 

IF 

ChARSTORE  1  (9) 

m 

•  1  • 

THEN 

GO 

TO 

PTTSLOAD1 ; 

00997000 

IF 

CHARSTORE  1  (9) 

• 

•2* 

THEN 

GO 

TO 

RTTSLOAD1; 

00998000 

ir 

CHARSTORE  1  (9) 

m 

•3* 

THEN 

GO 

TO 

MTSLOAD1; 

00999000 

ELSE  GC  TC  HOC 

EERROR 

i; 

00960000 

/*•/ 

/*♦/ 


/* 


POLLsSLOTIH 
f01.iiSi.0XU 
PO  LL 1 S  LOT 2 H 
P0LL1SLCT2L 
PO  LL i S  LOT  3  H 
fOU.iSl.OT3i 
P0LL1SL0T4H 
POLLiSLOT4L 
PO  Li  i  SLOT  9  H 
P0LLJSLGT9L 
P0LLSSL0T6H 
fOLLiSLOTRL 


CHARST0RE1  (9)  ; 
CHARSTORE 1 (10) 
C  H  A  RSTOR  E 1  (1  1) 
C  H  A  RSTOR  E 1 (12) 
CHARSTOR  E  1  (  1  3) 
CHARSTORE  1  (14) 
CHARST0RE1 (IS) 
CHARST0RE1  (U) 
CHARSTORE 1 (17) 
CHARSTORE  1  (16) 
CHARSTORE  1  (  19) 
CHARSTORE  1(2  0) 


GO  TC 

COnSUPLCAD  1 ; 

/♦*✓ 

R  S  2  3  4 

inocEi 

SET:  If  CC 1  <  9  THEN 

GC  10 

HODEERROR  1 ; 

1 1 

ChARSTORE  1  (9)  *  'O' 

THE* 

R5232SFLAG  >  OH; 

1 1 
GC 

CHARSTORE  1  (9)  -  *1* 
TO  COHSOf LOAD  1 ; 

THE* 

RS232JFLAG  »  0 1 H  ; 

/**/ 

/**/ 

EATS  H  SOI  SET 

:  IF  CC  1  <  9  THEN  CO 

TO  HODEERROR  1 ; 

1 1 

CHARSTORE 1 (9)  •  '0< 

THEN 

EATSHSGSf  LAG  1  •  OH; 

If 

CHARSTORE  1  (9)  •  '1' 

THEN 

EATS RSG St  LAG  1  •  0  1H 

1 1 

CHARSTORE 1 (9)  •  *2' 

1HER 

EATSRSC if  LAG  1  •  02H 

ChARSTORE  1  (9)  ■  EATSRSC 

Sf  LAG 

1  *  30H ; 

0096  1000 
00962000 


SLOTSREASS 1GN :  IF  CC 1 

<  22 

THEN 

GO  TO 

HODEERROR 1 ; 

00963000 

If  CHARSTORE  1  (2  1)  > 

3SH 

THEN 

GO  TO 

HODEERROR  1; 

00964000 

It  CHARSTORE  1  (2  1)  < 

30H 

THEN 

GO  TO 

HODEERROR 1; 

00969000 

If  CHARSTORE  1  (22)  > 

39H 

THEN 

GO  TO 

HODEERROR 1; 

00966000 

If  CHARSTORE  1  (22)  < 

30H 

THEN 

GO  TO 

HODEERROR 1 ; 

00967000 

TXSSLGTflNlTIALH  • 

(CHA 

RSTORE 

Mil) 

-  30H)  *  10; 

00968000 

TXSSLOTSINITIALL  « 

CHA 

RSTORE 

1(22) 

-  30H  ; 

00969000 

If  IXSSLOTIIMTIALH  ♦  TXS5L0TSI MTIALL  >  94  THEN  GO  TO  HODE  ERROR  1 ; 
IF  IXISLOTSINITIALH  ♦  T X J SLOT i I R IT  I A LL  •  0  THEN  GO  TO  HODEERROR 1 ; 
TDHSP0LLSTXSSL0TS1NITIAL  ■  TXSSLCTSINIT1ALH  ♦  T XS S LOTS  IN ITI AL 1 1 
TthlPOLliTXiSLOT  *  TOHJPO LL*T X JS 10T *1 X ITI AL ; 
TOHSPOLLSTXSSLOTSIHITIAL  IS  LIHITED  TO  A  RANGE  OF  1  TO  94  •/ 


GO  TO  C0HSUPL0AD1 1 


/**/ 


00970000 
0097  1000 
00972000 
00973000 
00974000 
0097SOOO 
00976000 
00977000 
00978000 
00979000 
00980000 
0096  1000 
00962000 
00983000 
00964000 
00969000 
00986000 
00987000 
00968000 
00989000 
00990000 
00991000 
00992000 
00993000 
00994000 
00999000 
00996000 
00997000 
00998000 
00999000 
01000000 
01001000 
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/•*/ 

EDACSHCDEiSEI:  IF  CC 1  <  9  THEN  CO  TC  ADNERBOR 1 ; 

If  CHARSIORE 1 (9)  «  'I1  THEN  EDACSf LAG  •  01H; 

If  ChAKSTCRE  1  (9)  «  'O'  THEN  LDACJF  LAG  •  OH; 

CC  1C  COH  SU  FLO  ADI; 

/**/ 

/•*/ 

A  DRC  H  A  NG  L :  IF  CC  1  <  11  THEN  GO  TO  ACRERgORI; 

AON  1  •  CHARSTOR1 1  (9)  ; 

ADR  2  •  CHARSTORE1  (10)  ; 

ACfi  j  >  CHARST0RE1  (11)  ; 

CO  TO  COHSUPLOAD 1 ; 

/«*/ 

/**/ 

POLLSHCDt;  If  C C 1  <  10  THEN  GO  TO  ACRERROR 1 ; 

IF  CHARSTORE  1  (9)  »  'O'  THEN  POLLSFLAG  •  OH; 

IF  CHARSTORE  1  (9)  *  • 1 •  THEN  POLLSFLAG  *  OlH; 

/•  IMTI  ALIIATION  OF  POLLING  HODE  */ 

I)  CHARSTORE1 (9)  -  THEN  PO LLSnSG SCOU NT  -  0; 

If  CHARSTORE  1  (9)  «  THEN 

TDHJPOLLSTXSSLOT  »  TCH SPO LLSTX S SLOTSI NI TI AL ; 

If  CHARSTORE  1  (9)  -  *1*  THEN  R EPO LLS FLAGS COU N T  »  0; 

If  CHARSIORE 1 (9)  -  *1*  THEN  R l I R A NSH ITS F L AG  -  OH; 

If  CHARSTORE  1  ( 10)  *  'S'  THEN  A UTOSR EPOL LSF LAG  *  OH; 

IF  CHARSTORE  1  (10)  -  *n'  THEN  A UTOSR EPOL LSF LAG  *  OlH; 

CO  TO  COtSUFLOADI; 

/*  V 

✓  **/ 

ROLLUNTER  RLRT  :  IF  CC  1  <  10  THEN  GO  TO  ADRERROR1; 

IF  CHARSTORE  1  (9)  *  '1*  THEN 

NTLnlfOLLSINTERRUHSFLAG  •  01H; 

IF  CHARSTORE  1  (9)  «  *0'  THEN 

NTCH iPOLLSINTERRUPTSFLAC  «  OH; 

IF  CHARSTORE  1  ( 10)  *  *1'  THEN 

TOHSPOLLSINTERRUPTSFLAG  ■  01H; 

IF  CHARSTORE  1  (10)  *  ‘O’  THEN 

TDNSLOLLSINTERAUPTSFLAG  ■  CH  ; 

CHAR  STORE  1  (9)  »  NTDHSPOLLS1NTERRUPTSFLAC  ♦  30H; 

CHARSTORE 1  (10)  -  TOHSPOLLSINTERRUPTSFLAG  ♦  30H; 

CO  TC  COHSUPLOAD1; 

/••/ 

/••/ 

NON! TOHSEE LA fSSET :  IF  CC 1  <  10  THEN  GO  TO  A  DRLRROR  1 ; 

IF  CHARSTORE  1  (9)  <  30H  THEN  GC  TO  HODEERROR1; 

If  CHARSTORE  1  (9)  >  39H  THEN  GC  TO  NODE  ER  ROR  1  ; 

IF  ChARSTORE  1  (10)  <  30H  THEN  CO  TO  HODEERROR1; 

IF  ChARSTORE  1  (10)  >  39H  THEN  GO  TO  HOD  EE  R  ROR  1 ; 

/•  CHARACTERS  9  E  10  ARE  DELAY  ENTERED  IN  SECONDS  */ 

/*  HAXIHUH  DELAY  IS  99  SECONDS  •/ 

RTEnOELAYH  ■  CHARSTORE  1  (9)  -  30H; 

NTLHDELAYL  *  ChARSTORE  1  ( 10 )  -  30H; 

DELAYSCAl:  NONST DH SnSGS DEL  A Y  1  «  ( N T DNDE L A YH* 3C0H)  ♦  ( NTDH DEL  A Y L* 30H )  ; 

CO  TC  COHSUPLOAD1; 

/**/ 

/**/ 

/•  ADR  ERROR  HESSAGE  •/ 

ADRERRCR  1 :  LO  I  *  1  TO  30; 

OUTTAHLE (TC  ♦  I)  «  AD R I R RORH DR ( I -  1)  ; 

END  ; 

BAITING  •  WAITING  ♦  1  ; 

TC  -  TC  ♦  30; 

CU1TABLE  (TC  «  1)  •  ODH; 

CUTTARLE  (TC  «2)  »  OAH; 


01002000 
01003000 
01006000 
01005000 
01006000 
01007000 
01006000 
01009000 
01010000 
01011000 
01012000 
01013000 
01016000 
01015000 
01016000 
01017000 
01016000 
01019000 
01020000 
0102  1000 
01022000 
01023000 
01026000 
01025000 
01026000 
01027000 
01026000 
01029000 
01030000 
01031000 
01032000 
01033000 
01036000 
01035000 
01036000 
01037000 
01036000 
01039000 
01060000 
0  106  1000 
01062000 
01063000 
01066000 
01065000 
01066000 
01067000 
01066000 
01069000 
01050000 
0  105  1000 
01052000 
01053000 
01056000 
01055000 
01056000 
01057000 
01056000 
01059000 
01060000 
0106  1000 
01062000 
01063000 
01066000 
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CUTTABLE<TC«  3)  •  ADR1; 

CUITABIE (IC  ♦*)  •  ADR*; 

cUTTAblE(TC  «5)  *  AORJ; 
cU 1 TA  BL  E  (TC  *6)  »  03H  ; 

DUTIABLE  (TC  *7)  -  03h  ; 

1C  •  TC  ♦  7; 

r.SGCOUAI  (AAITIAC)  •  37; 

CU  TO  COHSUPLOAD1; 

/#«/ 

/•  •/ 

/*  A l LIT  10  S S  TO  Cl  TABLES  •/ 

/*»/ 

/*  CHiCKlN  TAblE  TRANSFERS  EACH  EPU  BT  COHSUP  COHHARD  •/ 

/**/ 

P  TTJ  LOAD  1 :  IE  CC1  <  12  TULA  GO  TO  HCOESRROA 1 ; 

11  AUKIPCI  «  AUHSRCI  ♦  AUHJACI  >•  80  THEE  GO  TO  OVERELOU 1 ; 
tC  1  ■  1  TO  CC1  BY  4; 

Aor.jpci  -  auhjpci  ♦  i; 

rCliPOIATER  •  A  •  (AUHJPCI  -  1)  ♦  I; 

LO  J  •  0  TC  3; 

1  CIJSIOAE (PCIJPOIATER  )  • 

CHARSTORE  1  (1  *J)  ; 

1CIJPOIATER  •  PCIJPOIATER  ♦  1; 
t  A  t  ; 

ir  RUtmcx  ♦  aoh.irci  *  aubsaci  >•  so  then  go  to  ttiloadsebci; 

JF  ICC  1  -  I)  <4  THEN  GO  TC  TTSIOADSEAD  1; 

EAC; 

GO  TC  COHSUPLOAD 1 ; 

ATIJLGAD1:  IE  CC  1  <  12  THEN  GO  TO  HCOE EBBOA 1 ; 

IE  AUHJPCI  ♦  AUHSRCI  ♦  AUHJACI  >•  80  THEN  GO  TO  OVERELOR 1 ; 

DO  I  *  9  TO  CC 1  81  4; 

auhjhci  •  nuhSrci  ♦  1; 

AC  IT  POINTER  •  4  «  (AUHSRCI  -  1)  ♦  1; 
to  J  -  0  TO  3; 

RCIS5TORE  (RCIlPOI ATEk  )  • 

CH ARSTORE  1  (I  *0)  ; 

RCITPOIATEB  «  ACIIPOIATER  ♦  1; 

£  AC; 

If  AUHSPCI  ♦  AUHSRCI  «  AUHJACI  >»  60  THE*  GO  TO  TTSLOAEJEREI; 
If  (CC1  -  I)  <  B  THEA  GO  10  TT JLOAD J  EA  0 1 ; 

£  At ; 

GO  TC  C0HSUP10AD1; 

ATiJiOAPI:  If  CC  1  <  12  THEA  GO  TO  HC0EERR0R1; 

If  AUHJPCI  «  AUHSRCI  ♦  AURSAC1  >*  80  THEA  GO  TO  OVERT  LON  1 ; 

CO  I  »  9  TO  CC1  BT  «; 

AUHJACI  •  AUHJACI  «  1; 

ACIIPOIATER  •  B  *  (AUHSACI  -  1)  ♦  1; 

CO  J  •  0  TO  3; 

ACIJSTORE (ACISPOI ATER  )  • 

CHARSTORE  1  (I  »J)  ; 

ACIIPOIATER  •  ACIIPOIATER  *  1; 

EAE; 

ir  AUHIPCI  ♦  AUHSRCI  ♦  AUHJACI  >•  60  THEA  GO  TO  T Tl LOA Cl E A C  1 ; 
IE  (CC1  -I)  £  a  THEA  CO  TC  ITILOAOIE  AD  1 ; 

INC ; 

GO  TC  C0H5UPL0AD1; 

TTILOACt  EAC  1:  If  AUP.SPCI  •  AUHSRCI  •  AUHSACI  >•  80  THEA  GO 
TO  OVERELOA 1 ; 

ELSE  CO  TO  COHSUP LOAD!; 

/*  */ 

/*  */ 

/*  PRIORITY  »/ 

/*  */ 


01065000 
01066000 
01067000 
01068000 
01069000 
01070000 
01071000 
01072000 
01073000 
01074000 
0 1076000 
01076000 
01077000 
01076000 
01079000 
01080000 
0108  1000 
01082000 
01083000 
0 108BOOO 
01088000 
01086000 
01067000 
01088000 
01089000 
01090000 
0  109  1000 
01092000 
01093000 
01094000 
01095000 
01096000 
01097000 
01098000 
01099000 
01100000 
01101000 
01102000 
01103000 
01  104000 
01105000 
0  1106000 
01107000 
01108000 
01109000 
01110000 
01111000 
01112000 
01113000 
01114000 
01115000 
01116000 
01117000 
01118000 
01119000 
01120000 
01121000 
01122000 
01123000 
01124000 
01125000 
01  126000 
01  127000 
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/*  •/ 

Hi:  ir  Aictpci  »  RuntRci  ♦  RuntRCi  >-  80  ther  so  to 

OVERT  DOW  1 ; 

auhipci  •  wuntpci  ♦  1; 

pcisroiHEt  .  u  *  (  auhspci  -  i  )  ♦  i; 

DO  I  «  9  TC  12; 

PCltSIORI  (PCIlPOIRTER)  •  CH  ARSTOR  E  1  (I)  ; 

PcmoUTEt  «  PC1S  PCI  NT  ER  ♦  1; 

EAD; 

CO  TC  CGHSDPD0AD1; 

/*  */ 

/*  */ 

/*  hOUTlNE  */ 

/•  •/ 

/•  */ 

kt  1 :  ir  sur.ipci  ♦  auhIrci  ♦  auhjaci  >»  80  thea  co  to 
OVERFLOW  1 ; 

AUHSRC1  •  AlfltRCI  ♦  1; 

aciepoiaier  •  «  »  (  auhirci  -  1  )  ♦  1; 

LO  1  *  8  TC  12; 

ACliSTCKL  (hCIiFCIATER)  *  C  H  Ah  S  TO  fi  E  1  (I)  ; 

HCliPOlRItH  «  RCIf  I OIATER  ♦  1; 

LAC; 

CO  TC  COKSlf 10AD1; 

/•  •/ 

/*  */ 

/*  AC  TRAIilC  */ 

/•  «/ 

/•  */ 

ATI:  IF  ACMPCI  ♦  AtfltRCI  ♦  RllfWACI  >•  80  THE*  CO  TO 

0  V  £  h  F  LOW  1 ; 

AUfllACl  =  MHtACI  ♦  1; 

ACItPOlATth  «  9  *  (  A  U  11 1  AC  I  -  1  )  ‘1; 

DO  I  «  9  TC  12; 

ACliSTGR  l  (ACliPOIRTER)  «  C  HAR  S  TOt>  E  1  (I)  ; 

ACllPOIATEH  *  ACItPOIATER  ♦  1; 

LAD; 

CO  TO  COBS  DP  LOAD  1 ; 

/*  V 

/**/ 

/*  GKCDP  CHECHIA  */ 

/*  V 

GT  1 :  II  CC  1  <  11  THEA  CO  TO  ADR  ERROR! ; 

IT  ADHJGCI  69  THEA  GO  TO  OVER  FLO  A2 ; 

A  *  0  ; 

DO  I  ■  1  It  16; 

AUHiGCI  *  AUHtGCI  ♦  1; 

GC  It  F  01  AT  E  R  *  9*(RUHtGCI  -  1)  ♦  1 ; 

GCltSTORE  (GCItPOIRTER)  *  C  HA  R  STORE  1  (9)  ; 

GCltSTORL  (CCISPOIATER  ♦  1)  *  CH  A  RSTOR  E  1  ( 10)  ; 

DO  CASE  A; 

GCltSTCRE  (GCItPOIRTER  ♦  i)  *  'O'; 

GCltSTORE (GCItPOIRTER  ♦  2)  •  ’!’; 

GCltSTORE  (GCItPOIRTER  ♦  2)  *  ’2*; 

GCltSTORE  (GCItPOIRTER  ♦  2)  *  *3'; 

GCltSTORE  (GCItPOIRTER  ♦  2)  ■  '9'; 

GCltSTORE  (GCItPOIRTER  ♦  2}  •  ’S'; 

GCltSTORE  (GCItPOIRTER  ♦  2)  •  *6’; 

GCltSTORE  (GCItPOIRTER  ♦  2)  •  '7*; 

GCltSTORE  (GCItPOIRTER  ♦  2)  •  '8'; 

GCltSTORE  (GCItPOI  ATER  ♦  2)  ■  '9'; 

GCltSTORE  (GCItPOIRTER  ♦  2)  ■  'A'; 

GCltSTORE  (GCItPOIRTER  ♦  2)  •  •8*; 


01 128000 
01129000 
01130000 
01131000 
01132000 
01133000 
01139000 
0  1 135000 
01136000 
01137000 
01138000 
01139000 
01  190000 
0 1 19 1000 
01  192000 
01  193000 
01  199000 
01  195000 
01  196000 
01197000 
01198000 
01199000 
01150000 
01151000 
01152000 
01153000 
01159000 
01155000 
01  156000 
01157000 
0  1  158000 
01159000 
0  1  160000 
0 1 16 1000 
0!  162000 
01  163000 
0 1  169000 
0  1  165000 
0  1  166000 
01  167000 
01166000 
0  1  169000 
01170000 
0 1 17 1000 
0 1  172000 
01173000 
0  1  179000 
01  175000 
0  1  176000 
01177000 
01178000 
01  179000 
01180000 
0118  1000 
0  1 162000 
01183000 
0  1 169000 
01185000 
0  1166000 
01187000 
01  188000 
0  1  169000 
0  1190000 
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GC1SSTORE  (GCISPOIMTER  ♦  2)  -  •C'; 

01191000 

GCIiSTORE  (GC  It  POINTER  ♦  2)  •  •D>; 

01192000 

GClf STORE  (GCISPOIMTER  ♦  2)  -  *E*; 

01193000 

GCIISTORE  (GCISPOIMTER  ♦  2)  •  *  F  ■  ; 

01194000 

ARC; 

01199000 

A  »  A  ♦  1 ; 

0 1 196000 

GCIISTORE (GCISPOIMTER  ♦  3)  •  CHARSTORE1(1 

i) ; 

01 197000 

GCIIIOIMTER  •  GCISPOIMTER  ♦  5; 

01198000 

If  AURSGCl  >•  44  THEN  GO  TO  CV  ERFLOM  2 ; 

01199000 

ead; 

01200000 

GO  T  C 

CORSUIIOAD 1 ; 

0 12b  1000 

/•*/ 

01202000 

/•*/ 

01203000 

CHECKlAt CE1ETE:  If  CC1  <  11  THEM  GO  TO  ADRERRCR 1 

; 

01204000 

A*1* ; 

0  1205000 

It  C  hARSTORE 1 (9)  •  *P'  ThEN  A  •  0; 

0120 6000 

If  C  HARSTORE  1  (9)  •  'R*  THEN  N  -  1; 

01207000 

If  C  HARSTORE  1(9)  •  • H •  THEN  A  «  2; 

01208000 

IT  ChARSTORE  1  (9)  •  ' G  *  TH E A  A  »  J; 

01209000 

/• 

•/ 

01210000 

If  A  «  A  THEN  GO  TO  HODEERRCA); 

01211000 

If  ChARSTORE  1  (10)  -  30 H  >  6  THEN  CO  TO  HODEERROR 1 ; 

01212000 

If  ChARSTORE  1  ( 1 1)  -  30H  >  9  THE*  GO  TO  HODEERROR 1 ; 

01213000 

/• 

*/ 

01214000 

J 

»  (ChARSTOREI  (10)  -  3 0 H)  *  10  ♦  (CH ARS TOR E  1  ( 1 1)  -  30H); 

01219000 

/* 

•/ 

01214000 

DO  CASE  A; 

01217000 

If  J  >  AUntPCI  THE*  GO  TO  RCDEERROR 1 ; 

01218000 

If  J  >  AURIRCI  THEN  GO  TO  HODEERROR 1; 

01219000 

If  J  >  AUHSNCI  THE*  GO  TO  HODEERROR 1 ; 

01220000 

If  J  >  AUHJGCI  THE*  GO  TO  HODEERROR 1 ; 

01221000 

END; 

01222000 

/* 

•/ 

01223000 

DO  CASE  n; 

01224000 

It  AUHSPCI  -  0  THE*  GO  TO  HODEERROR 1 ; 

01229000 

It  AUHIRCI  >  0  THEN  GO  TO  HODEERROR); 

01224000 

If  ADHSNCI  ■  0  THE*  GO  TC  HODEERROR 1; 

0)227000 

If  AUHSGCI  *  0  THEN  GO  TO  HODEERROR); 

01228000 

END; 

01229000 

/* 

•/ 

01230000 

DO  CASE  * ; 

01231000 

DC  I  *  4*J*1  TO  4  *N  UHS  P  C I ; 

01232000 

PCIISTORE  (1-4)  ■  PCIISTCRE(I); 

01233000 

EAC; 

01234000 

DO  I  •  4*J«1  TO  4«NUHSRCI; 

01239000 

RCISSIORE  (I -4)  »  RCII5TCRE  (I)  ; 

01234000 

EAL; 

01237000 

DC  I  ■  4 • J ♦ 1  TO  4  4*  UHS  A  C I  ; 

01238000 

NCISSTORE  (1-4)  •  NCI  JSTCRE  (I)  ; 

01239000 

EAD; 

01240000 

DC  I  ■  4 • J ♦ 1  TO  44NUHIGCI; 

0124  1000 

GCISSTORE  (1-4)  -  GCIJSTCRE(I)  ; 

01242000 

END; 

01243000 

INC; 

01244000 

/* 

•/ 

01249000 

DO  CASE  N; 

01244000 

A  UR S PC  I  •  AUHSPCI  -  1; 

01247000 

NOHSRCI  •  AUHSRCI  -  1; 

01248000 

AUHSNCI  •  NUHSNCI  -  1; 

01249000 

NUPiGCI  •  AUHJGCI  -  1; 

01250000 

END; 

01251000 

/* 

*/ 

01252000 

DO  CASE  N; 

01253000 
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PCUPOIRTER  •  PCISPOIRTXR  -  4; 

RClSrOIKTER  •  RCXf FOI8TER  -  1; 

NClSPOIRTEft  •  ECI SPOT A? E h  -  4; 

GCliPOIRTER  «  GCIfPOIN? ER  -  4; 

EMC; 

/•  •/ 

GO  TC  COBSUPLOAD1 ; 

/•V 

/*•/ 

/*  r.PU  Cl  AUWbER  TEST  •/ 

/•V 

/**/ 

(IPUCIAUflTESl  1 :  IF  KURS1ICI  «  RUHSPCI  ♦  KVRSfiCI>«  dO 
I8X A  CO  10  CVIRFL0W1; 

ELSE  CO  10  COHSUFLOAD  1 ; 

/•*/ 

/.*/ 

/•  oumo*  message  •/ 

/**/ 

/**/ 

OVERFLOW  1:  CiRCDE  »  'O'  ; 

OVERT  LG  *2:  CO  I  -  1  TO  27; 

cUTJTAfcL  i  (  TC  ♦  I  )  •  Oil  ERFLOW  HGR  (X  -  1  )  ; 

XaD; 

WAXTIAG  «  RAX1IAG  ♦  1; 

TC  «  TC  ♦  *7; 

0U11RBLE  ITC  ♦  1)  -  03H  ; 

OUT!  A  RLE  ITC  ♦  2)  *  Q3h; 

TC  ■  TC  ♦  <; 

HSGCOUAT  (WAXTIAG)  *  29; 

CC1  «  0; 

CO  TO  CECIL  10  1; 

/* 

/*  */ 

/*  CMECKIA  McCE  S  El  «/ 

/* 

/*  */ 

CHECmlRRCDESET  1;  It  CC1  <  S  TWER  GC  TO  ADRER8CR  1; 

It  CHRRST0RE1 (9)  *  *0*  tHER  CJKOCE  *  'O'; 
It  CHARST0RE1(91  *  *  1  *  THEA  CjflODE  *  •  1 »  ; 
ELSE  C Sn ODE  *  *1*; 

If  AbfiiPCI  ♦  RUHIRC1  ♦  RUWIKCI  >*  bt  TMEA  CO  10  OVERFLOVl; 
ELSE  GC  TO  CONSUPLOAD! ; 

/**/ 

/**/ 

/•  RESET  Cl  CWECRIR  TABLES  */ 

/**/ 

/**/ 

PCIRESIT:  RunlPCI  »  0; 

fell  POIRIER  «  0; 

GO  TO  COBSUPLOAD); 

RC1RESET:  fUnSKCI  »  0 ; 

RCXSPOXKTER  •  0; 

GO  TO  C0KSUPL0AD1; 

AC1RESET:  AUBIACI  •  0; 

ACXJFOIUTEA  *  0; 

CO  TO  CCBSOPEOAD); 

GCXRESET;  RUWSGCX  «  0; 

GCX1P0XRTER  •  0; 

/**/ 

/**/ 

/*  COBSUF  B5G  AETUR A  TO  I E  kill  A  A  l  OPERATOR  •/ 

/•*/ 


o tiswooo 

0 1 2SS000 
0  1296000 
01297000 
0 1 2S8000 
01299000 
0 1 260000 
0126  1000 
01262000 
01263000 
01264000 
01269000 
01266000 
01267000 
01266000 
01269000 
01270000 
0)271000 
01272000 
01273000 
01274000 
01279000 
01276000 
01277000 
01278000 
0)279000 
01260000 
0 1 <6 1000 
01262000 
0  1 2b  3000 
01264000 
01269000 
01266000 
01267000 
01266000 
0  1  >69000 
01290000 
01291000 
0 1292000 
01293000 
01294000 
01299000 
01296000 
012970QQ 
01298000 
01299000 
01300000 
01301000 
01302000 
01303000 
01304000 
01309000 
01306000 
01307000 
0  1306000 
01304000 
01310000 
01311000 
01312000 
01313000 
01314000 
01319000 
01316000 
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/**/ 

01317000 

COBSUPLOAD1:  DO  I  •  1  TO  CC 1  ; 

01318000 

OUTITABLE  (  TC  ♦  I  )  «  CHABSTOR  £  1  (I)  ; 

01319000 

ENO; 

01320000 

TC  ■  TC  ♦  CC  1  ; 

01321000 

BAITING  •  BAITING  ♦  1; 

01322000 

DUTIABLE  (TC  ♦  1)  *  03H; 

01323000 

OUTTABLE  (TC  *2)  •  03H; 

0132X000 

TC  «  TC  *2; 

0  1328000 

BSGJCOUNI (BAITING)  •  CC 1  *2; 

0 1 328000 

NOCOHSUFLOAL1:  CC 1  •  0; 

01327000 

GO  TO  CFO!  1  10  1 ; 

01328000 

/*  */ 

01329000 

/*  EhRCR  MESSAGE  DUBP  */ 

01330000 

/•*/ 

01331000 

/**/ 

01332000 

BODEERROnl:  00  1  *  1  TO  JO; 

01333000 

CUIATAbLE  (  TC  ♦  I  )  •  ERRORHDh  (1  -  1)  ; 

0133X000 

END; 

0 1 33SOOO 

TC  «  TC  ♦  JO ; 

0 133X000 

BAITING  •  nAITING  ♦  1; 

01337000 

r.SGCOUNT  (BAITING)  •  G  ; 

01338000 

BSGCOUNT  (WAITINC)  •  BSGCOUNT  (WA1TINC)  ♦  JO; 

01339000 

CC  1  «  C; 

013X0000 

GO  TO  CPGLL  10 1 ; 

013X1000 

/*•/ 

013X2000 

/*  */ 

013X3000 

/*  IAbLE  TRANSFERS  */ 

0 1 JXXOOO 

/*  »/ 

013X5000 

/*  BAKE  lit  HEADER  */ 

013X6000 

✓  *  */ 

013X7000 

Uhls  0UTTAEEE1  (TCI  ♦  1)  »  •«•; 

013X8000 

CUIIABIE  1  (TC  1  *  2)  •  CHARSTORE1  (9)  ; 

013X9000 

TC  11 A  IT  I  A!  -  1C1; 

01350000 

DO  I«  1  To  3; 

01351000 

OUTTAblE  1  (  TCI  *2*1)  *  CHARSICRE1(  1*9  )  ; 

01352000 

END; 

01353000 

/*  •/ 

0135X000 

/•  SELECT  TABLE  */ 

01355000 

/*  •/ 

01356000 

ir  CHARS  TORE  1  (9)  •  THEN  GO  TO  ETTR1; 

01357000 

IF  CHARSTORE  1  (9)  «  'V'  THEN  GO  TO  RTTR1; 

0135800G 

IF  CHARSTORE  1  (9)  «  '2'  THEN  GO  TC  RTTR1; 

01359000 

IF  CHARSIORE 1  (9)  •  THEN  GO  TC  PCLLTTR  1; 

01360000 

ELSE  GO  TO  BOCEERRCR  1; 

0  136  1000 

/•  */ 

01362000 

/*  */ 

01363000 

/*  PCI  TABLE  LOAt  */ 

0136X000 

/*  */ 

01365000 

/•  */ 

01366000 

fTTRI:  IF  RCBSPCI  >  0  THEN  GO  TO  TFRERROR1; 

01367000 

BAIT 1NG 1  *  bAIUNGI  «  1; 

01366000 

BSGCOONT  1  (nAITING  1)  ■  C; 

01369000 

TCI  •  IC1  ♦  5; 

01370000 

N  *  xXNUr.JPCI; 

01371000 

DO  I  •  1  TO  N; 

01372000 

OUTTAPLIH  TCI  ♦  1)  *  PCIJSTORE(I)  ; 

01373000 

END  ; 

0137X000 

TCI  •  TC 1  «  N  ; 

01375000 

OUTTABLE  1(10  1*  1)  *  03H; 

01376000 

OUTTABLE  1(311*2)  •  C3H; 

01377000 

TCI  *  TCI  ♦  2; 

01376000 

BSGCOUNT  1  (BAITING  1)  •  TCI  -  TC1INIT1AI; 

01379000 
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CO  to  COHSUPLOAD1; 

/•  •/ 

/*  •/ 

/«  ACI  lAbLE  LOAD  •/ 

/•  •/ 

/«  •/ 

ATT*  1  :  ir  AUHIHCI  •  C  THEM  GO  TO  TFkERRORI; 

A  A  IT  I  AG  1  ■  A  A  I  T I  A  G  1  ♦  1; 

HSGCOUAT  1  (AAITIAG1)  •  0; 

TCI  »  TCI  ♦  5; 

A  *  X»AU  Hi  AC  I ; 

GO  I  «  1  10  A; 

CUTTABLE1(  TCI  ♦  1)  *  RCISSTOkE  (I)  ; 

LAD; 

IC  1  -  TC  1  ♦  N ; 

OUTTABLE  1(10*1)  «  0  3H ; 

OUTTAbll  1  (1C  1*2)  •  0  3H  ; 

1C  1  -  1C  1  ♦  2 \ 

HSGCOUAT  1  (aAIIIAGI)  «  IC  1  -  TC1IAII1AL; 

GO  10  CorSL'f  LOAD  1; 

/*  */ 

/•  •/ 

/*  A  C 1  1ALLE  LOAD  •/ 

/*  */ 

/*  •/ 

AT1A1:  If  AUHJACI  «  C  TULA  GO  TO  DkERAORI; 

HAITI  AG  1  *  AAITIAG1  «  1; 

HSGCOUAT  1  (aAIIIAGI)  «  0; 

TCI  •  1C  1  ♦  5; 

A  -  XAAUf.iACI; 

DO  1  •  1  10  A; 

CUTIABLtl(  TCI  ♦  1)  »  ACIJSTOhl  (1)  ; 

EAC  ; 

TC  1  -  1C  1  ♦  A ; 

OU IT  A  b IE  1(10*1)  •  0  3  H  ; 

OUTTABLE  1(10*3)  ■  OjH; 

TCI  •  TCI  *  *  ; 

HSGCOUAT  1  (HAITI  AG  1)  *  TCI  -  TOIMTIAL; 

GO  TC  Consul  LOAD  1 ; 

/•  */ 

/•  •/ 

/*  POLL  TABLE  LOAD  (  ALL  CAL l  )  •/ 

/•  •/ 

/*  •/ 

POLL!  TA 1  :  If  H1C0UA11  <-  0  THEA  GC  TO  rFPERkOFl; 
A  A  IT  I  AG  1  ■  .AITIAG1  «  1; 

HSGCOUAT  1  (.AITIAG  1)  •  C; 

TCI  ■  1C  1  *  5  ; 

DO  I  *  1  10  rllCOl'ATI; 

OUTTABLE  1  (TC  1  ♦  I)  •  P0LLTABLI1  (1)  ; 

LAD  ; 

TCI  »  TC  1  ♦  PI  lcOUAT  1 ; 

OUTl  ABLE  1(111*1)  •  OjH  ; 

OUT!  ABLE  1(10*2)  •  OjH; 

TCI  •  TCI  «  2; 

HSGCOUAT  l(.AlTIAGI)  •  TCI  -  TOIMTIAL, 

GO  TO  C0H5UI LOAD  1 ; 

/**/ 

/*»/ 

/•  TABLE  IkAASFER  ERROR  HESSAGL  CHIP  •/ 

/*•/ 

TFkEkRCk  1:  CO  I  •  1  TO  33; 

OUITAbLL  (TC  «  I)  •  Tf  h  ERROHH  DR  ( I  -  1)  ; 


01380000 
01381000 
01382000 
01383000 
0138X000 
01385000 
01388000 
01387000 
01388000 
01389000 
01390000 
0139  1000 
01392000 
01393000 
0  139X000 
01395000 
01396000 
01397000 
01398000 
01399000 
0  1X00000 

01X0  1000 
01X02000 
01X03000 
01x04000 
01x05000 
OIXObOOO 
01X07000 
01X08000 
01X09000 
01X10000 
0  1X1  1000 
0 IX 12000 
01X  13000 
01X1X000 
0  IX  15000 
0 IX 16000 
0 IX  17000 
0 1X18000 
0 IX 19000 
0 1X20000 
01X21000 
0  1X22000 
01X23000 
01X2X000 
01X25000 
0  1X26000 
01X27000 
01X28000 
01X29000 
01X30000 
0  1X3  1000 
01x32000 
01x33000 
J  1X3x000 
01X35000 
01x36000 
01X37000 
01X38000 
01X39000 
01XX0000 
Olxx  1000 
01XX2000 
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UD; 

TC  •  TC  ♦  33 ; 

BAITING  •  HAITI  KG  ♦  1; 

HSGCOUNT  (HAITIHG)  •  33; 

CC1  -  0; 

GO  TO  OPOLHOI; 

/*  ♦/ 

/*  */ 

/*  T  AbL  £  CUHPS  */ 

/•  */ 

/*  */ 

/*  HAKE  OP  HEADER  */ 

/*  •/ 

/*  */ 

TBLDUHH:  1 1  CCl  <  12  THEM  GO  TO  AD AERRO*  1; 

OUTITA  8LI  (TC  ♦  1)  *  0  1H ; 

OUTSTAbLE (TC  ♦  2)  *  '3‘; 

TC  -  TC  ♦  2; 

DO  I  »  1  Tt  3  ; 

OUriTAfcLK  TC  ♦  I  )  »  CHASSTORE1(  I«9  J  ; 

END  ; 

1C  *  IC  ♦  3; 

WAITING  «  WAITING  ♦  1; 

HSGCOUNT  (WAITING  )  «  5; 

/•  */ 

/•  •/ 

/*  SELECT  1ABLE  V 

/•  */ 

/•  */ 

If  CHARSTORE  1  (9)  *  '0*  THEN  GO  TO  GTABLEDUHPI; 

If  CHARS  TO  HI  (9)  •  •  p  •  THEN  GO  TO  fTABLEDUHPI; 

IT  C  h  A  i\S  TO  R  E 1 (9)  *  ' R •  THEN  CO  TO  RTABLEDUBP  1 ; 

If  CHARS  10 RE1  (9)  •  %'  THEN  GO  TO  N1ABLE0UHP1; 

If  CHARSTORE 1 (9)  »  '2<  THEN  GO  TG  PCLLTABLEDUBP  1 ; 

ELSE  GC  TC  HODEIRROR  1; 

/♦  */ 

/*  */ 

/*  PRIORI!*  */ 

/•  */ 

/*  */ 

PTABLEDUHPl:  DO  I  «  1  TO  29; 

GUT»TABLE(IC  «  I)  •  PIDHEADER  (1  -  1); 

END; 

IC  ■  1C  <  iS  ; 

HSGCOUNT  (WAITING)  >  K  SGCOU  NT  (W  A I  T I  NG)  ♦  29  ; 

If  HUfliPCI  *  0  THEN  CO  TO  CO  HSU  F  DO  A I  1  ; 

A  •  1; 

/*  OUTPUTTING  Of  PCI  TABLE-  8  CHECKINS  PER  LINE  •/ 
PTAfclEBUILE  1;  DO  I  *  1  TO  8; 

DC  J  *  1  TO  4; 

TC  *  TC  ♦  1; 

HSGCOUNT  (WAITING)  «  H  SGCOU  NT  (WA 1 T  1  NC)  ♦  1; 

CUT1TAELE  (TC)  «  PCISSTCR  E  (N)  ; 

II  N  >•  PCIf POINTER  THEN  CO  10  COKSDPlDADI; 

n  *  n  ♦  1; 

END; 

TC  •  TC  *  1  ; 

OUTSTABLE  (TC  )  •  2GH ; 

HSGCOUAT  (WAITING)  •  PSGCOU  NT  (W  A  I  T I  NC)  ♦  1  ; 

END; 

TC  •  TC  ♦  1  ; 

OUTSTAbLE  (TC  )  •  ODh ; 

TC  •  TC  «  1; 


0 1  AN  3000 
01444000 
0 1445000 
01446000 
01447000 
01448000 
01449000 
01450000 
0145  1000 
01452000 
01453000 
01454000 
01455000 
01456000 
01457000 
01458000 
0)459000 
01460000 
0146  1000 
0  1462000 
01463000 
01464000 
01465000 
01466000 
01467000 
01468 000 
01465000 
01470000 
01471000 
01472000 
01473000 
01474000 
0)475000 
0)476000 
01477000 
01478000 
01479000 
01480000 
0148  1000 
01482000 
01483000 
01464000 
01485000 
01486000 
0 1 487000 
01486000 
01489000 
01490000 
0149  1000 
0  1492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 
01500000 
0150  1000 
01502000 
01503000 
01564000 
01505000 
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OUTSTAbLE  (1C  )  *  OAH ; 

nSGCOUNT  (HAITING)  •  RSGCOUNT  (HAITING)  ♦  2  ; 

GO  10  PT AB  LE8UILD 1 ; 

/•*/ 

/**/ 

/•  HCU11NE  */ 

/**/ 

/**/ 

AT  AB  LEDU  HP  1 :  DO  X  ■  1  TO  26; 

OUTSTAbLE  (1C  ♦  I)  *  RTDHEADER  (1*1)  ; 

END; 

1C  »  1C  ♦  2b; 

RSGCOUNT  (*  A1TING)  •  R  SGCOU  NT  (HA  I TI  N  G)  ♦  28; 

IT  NURSACI  «  0  THEN  GO  TO  C0RSUPL0AD1; 

*•  *  i; 

/•  OUTPUTTING  OF  RCI  TABLE-  8  CHECKINS  PEN  LINE  •/ 
ATABLEbUlLLl:  DO  1  *  I  10  9; 

DO  J  *  1  TC  •*; 
ic  -  TC*  1; 

HSGCOUKT  (WAITING)  ■  RSGCOUNT  (k  AI « NG)  ♦  1; 

OUTSTABLE (1C)  *  RC1JST0RE (N)  ; 

IF  k  >*  AClIPOIkTEA  IHEk  GO  TO  CORSUPLOADT; 

N  »  k  ♦  1; 

END; 

TC  »  TC  ♦  1; 

GUXklAbLE  (1C  )  •  20b  i 

RSGCOUNT  (WAITING)  *  RSGCOUNT(WAITING)  ♦  1; 

END; 

TC  •  1C  ♦  1; 

0UIJ1ABEE  (IC  )•  ODH ; 

TC  »  TC  *1  ; 

OUXJIABLE  (1C  )  ■  OAH; 

NSGCOUNT  (WAITING)  *  RSGCOUNT  (WAI II  NO)  ♦  2; 

GO  10  HTABLEbUILDI; 

/**/ 

/**/ 

/*  NO  TRAFFIC  */ 

/**/ 

NX  AB  L  ECU  (IP  1:  CO  I  *  l  TO  31; 

OUTSTAbLE  (TC  ♦  I  )  *  NlDHEADER  (1*1)  ( 

ENU; 

TC  *  TC  ♦  31; 

HSGCOONT  (WAITING)  *  R  SGCOU  NT  (W  All  1  NC)  ♦  31; 

IF  kURlkCI  *  0  THEN  GO  TO  CCHSUPLGAL1; 

N  »  1  ; 

/*  0U1PUTI1NC  01  NCI  TABLE  -  8  CHECKINS  PER  LINE  */ 
klAbLEbUILC  1:  DO  I  *  1  TO  6 ; 

DC  J  «  1  TO  4; 

1C  .  IC  <  1; 

RS  GC  CUNT  (WAITING)  •  R  SGCOU  NT  (N  A 1X1  N  G)  ♦  1; 

OUTSTAtLE  (1C  )  •  NClSSTORE  (N); 

IF  k  >•  NCXIPCINTEN  THEN  GO  TO  COR StPLOAD  1 ; 

N  »  N  ♦  1; 

END; 

TC  •  TC  ♦  T; 

(ISOCOUNT  (UNITING)  •  R.  SGCOU  N  T  (N  A I T1  NG)  «  1; 

OUTSTAbLE  (XC)  •  20H; 

END; 

IC  «  TC  ♦  1; 

OUTSTABLE  (TC)  *  ODH; 

TC  •  TC  ♦  1; 

CUTS  TABLE  (TC)  •  OAh; 

RSGCOUNT  (HALTING)  •  RSGCOUNT  (HAITI  NG)  ♦  2; 


01506000 
01507000 
01508000 
01509000 
01510000 
01511000 
01512000 
01513000 
015  14000 
01515000 
01516000 
01517000 
01518000 
01519000 
01520000 
0152100U 
01522000 
01523000 
01524000 
01525000 
01526000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
0154  1000 
01542000 
01543000 
0 1 54  4000 
01545000 
01546000 
0)547000 
01548000 
01549000 
0)550000 
01551000 
01552000 
01553000 
01554000 
01555000 
01556000 
01557000 
01558000 
01559000 
01560000 
01561000 
01562000 
01563000 
01564000 
01565000 
01566000 
01567000 
01568000 
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GO  TO  NTAB IIBUILD 1 ; 

/*•/ 

/**/ 

/*  GROUP  CHECKIN  */ 

/••/ 

GTA8L  EDUHP  I :  DO  I  »  1  TO  26; 

DUTIABLE  (EC  ♦  I)  ■  GTDHEADER  (1*1)  ; 

END; 

TC  -  IC  *  *6; 

nSGCOUAT  (WAITING)  >  HSGCOUNT  (HAITI  NG)  ♦  26; 
ir  NUnSGCI  «  G  THEN  GO  TO  COHSUPLOAE1; 

A*  1 ; 

/•  OUTPUTTING  or  GC1  TABLE  -  8  CHECKINS  PER  LINE  */ 

GTAbLERUILD  1:  DO  I  *  1  TO  8 ; 

CO  J  »  1  TO  6; 

TC  -  TC  ♦  1; 

HSGCOUNT (WAITING)  «  HSGCOUNT (HA ITI NG)  *  1; 

OUTTABLE (TC)  •  GC1SSIORE (N) ; 

ir  N  >•  GCISPO INTER  THEN  GO  TO  COHSUPLOAD 1 ; 

N  ■  N  ♦  1; 

END; 

TC  -  TC  ♦  1; 

OUT  TABLE  (TC)  •  20H; 

HSGCOUNT  (WAITING)  *  HSGCOUNT  (WAITING)  ♦  1; 

END  ; 

TC  -  TC  ♦  1; 

OUTTABLE  (TC)  «  ODH; 

TC  »  TC  ♦  1; 

OUTTABLE (TC)  «  OAH; 

HSGCOUNT  (WAITING)  -  HSGCO  UN  I  (W  A  ITI  NG)  ♦  2; 

GO  TO  GTABLEBUILC1; 

/••/ 

/*•/ 

/*  POLL  V 

/••/ 

/•*/ 

POLLIAPLEDUHP2:  WAITING  «  WAITING  ♦  1; 

TOTALSNUHSCI  •  NUHiPCI  ♦  NUHlWCI  ♦  NUHJNCI  ♦  NUHJGCI; 
PT1COUNT1  ■  6  *  TOTALSNUHSCI; 

/•  RESET  Of  POLLING  HODE  PARAHETERS  */ 

POlLlTLAG  •  0; 

REPOLLSELAGSCOUNT  •  0; 

POIISHSGSCOUNT  •  0; 

TDHlPOLLSTXSSLOT  •  TDHSPO L L JTXSS LOT  *  I NITI A L; 

POLLTAELEDUHP1:  IP  TOTALSNUHSCI  =  0  THE*  CO  TO  COHSUPLOAD 1 ; 
ir  CHARS  TORE  1(13)  •  'R*  THEN  Poll JTABLESTXSILAG  •  01H; 

ELSE  POLLSTABLESTXSPLAG  •  OH; 

DO  1  •  T  TG  26; 

OUTSTA6LE  (TC  ♦  I  )  •  POLL  DUHPHDR  ( I  -  J)  ; 

END; 

IC1N1T1AL  •  TC; 

TC  *  IC  ♦  2b; 

/*  OUTPUTTING  or  POLL  TABLE-  8  CHECKINS  PER  LINE  */ 

P0LLUUHPBU1LD1:  UNECOUNT  •  0; 

N-  0; 

/•  SLOT  ASSIGNHENT  HEADER  -  J1RST  LINE  */ 

/**/ 

J  *  i; 

OUTTABLE  (TC  ♦  1)  *  26H; 

OUTT  ABLE  (T  C  ♦  2)  *  POLLS  SLOT  1H; 

OUTTABLE  (TC  *  3)  ■  FOLLSSLOTU; 

OUTTABLE  (TC  ♦  W)  •  29H; 

OUTTAbLE  (TC  ♦  5)  •  20H; 


01569000 
01570000 
01971000 
01572000 
0 1S7  3000 
0  1576  000 
01575000 
01576000 
01577000 
0157B000 
01579000 
01580000 
01581000 
01582000 
01563000 
01586000 
01585000 
01586000 
01587000 
01588000 
01589000 
01590000 
01591000 
01592000 
01593000 
01596000 
01595000 
01596000 
01597000 
01598000 
01599000 
01600000 
01601000 
01602000 
01603000 
01606000 
01605000 
01606000 
01607000 
01608000 
01609000 
01610000 
01611000 
01612000 
01613000 
01616000 
01615000 
01616000 
01617000 
01618000 
01619000 
01620000 
01621000 
01622000 
01623000 
01626000 
01625000 
01626000 
01627000 
01628000 
01629000 
01630000 
01631000 
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IC  •  TC  ♦  5; 

LI kECOUAT  *  LlkECOUkT  «  5; 

LOADADh:  DO  I  *  1  TO  4; 

OUTIABLE(TC*I)  *  POL  LIABLE 1  (A  *1)  ; 

EkC; 

k  •  k*4; 

OUTTABLE  (TC*S)  ■  20H; 

LlkECOUkT  •  LlkECOUkT  ♦  5; 

TC  *  TC  ♦  5; 

If  k  >•  FTICOUkTI  THlk  GO  TO  EkDLOAC; 

IE  LlkECOUkT  <  4 5  THEN  GO  TO  LOACACR; 

ELSE  GO  10  EkDLCAC  ; 

EkDLCAD:  0 U 1  T A b L E (TC*  1 )  •  ODM; 

OUTTAfcLE  (TC  *  2)  «  OAH; 

TC  «  TC  «  2; 

LlkECOUkT  •  0; 

nsGCOUNT (WAITING)  •  HSGCOUkT (HAITI kG)  «  (TC-TCI kITlAL) ; 
TClkITIAL  -  TC; 

IE  k  >*  PTICOUkTI  THEM  GO  TO  PO L LSI ABL ESTX ; 

/*  SLOT  ASSlGkHEkT  HEADER  -  AED'L  LIkES  •/ 

GUITABLE  (TL  ♦  1)  *  2bH; 

LO  CASE  J; 

OUTTAbLf  fTC  ♦  2)  *  POLLSS LOT  1 H ; 

OUTTABLE  (TC  *  2)  ■  POLLSS  LOT  2  h  ; 

CUTTAbLE  (TC  ♦  2)  *  POLLSS  LOT  3  H  ; 

0U1TA  bL  E  (TC  ♦  2)  «  POLLSSLOT4H ; 

OUTTAbL  E (TC  ♦  2)  »  P0LLSS10T5H; 

OUTTABLE  (TC  «  2)  *  POLLSS LOTS H ; 

Ekb; 

LO  CASE  J; 

OUTTABLE  (TC  *  3)  *  POLLSSLOTIL; 

OUTTAbL  E  (TC  ♦  3)  •  POLLSS L0T2 L  ; 

OUTTABLE  (TC  *  3)  *  POLLSS  LOT  3  L  ; 

0UT1ABLE  (TC  ♦  3)  *  POLLSS  LOTH  L  ; 

OUTTAbL!  (TC  ♦  3)  «  P0LLSSL0T5L; 

OUTTAbL!  (TC  «  3)  •  POLL  SS  LOTS  L ; 

EHD; 

OUTTABLE  (TC  *  4)  »  29H; 

OUTTABLE  (T  C  ♦  5)  *  20H; 

TC  •  TC  *  5; 

LlkECOUkT  •  LlkECOUkT  «  5; 

0  •  J  ♦  1; 

If  J  >  5  THEk  J  •  0; 

GO  TO  LOADALP; 

/•*/ 

/♦•/ 

POLLiTABLEJTX :  IE  EOL LS TAB LE STX S I L AG  <>  0 1H 
THEk  GO  TO  COHSUPLCAD1; 

HAII1HG1  •  HAITI  EG  1  «  1; 

DO  1  1  •  1  TO  rSGCOUHT  (HAITIkC)  ; 

OUTTABLE!  (TC  1  ♦  I  1)  •  OUT!  AB  L I  (TC  ♦  I  1-HSGCOUH  T  (k  AITI  kG)  )  ; 
EkD  ; 

/*  •/ 

/•  ALL-CALL  HEADER  SUBSTITUTICk  •/ 

OUTTABLE  1  (TCI  ♦  1)  •  'S'; 

OUTTABLE  1  (TC  1  ♦  2)  •  'L'; 

OUTTABLE1  (TCI  ♦  3)  •  'O'; 

OUTTABLE  1  (TC  1  ♦  k)  •  'T'  ; 

OUTTABLE  1  (TCI  ♦  S)  •  2rH  ; 

✓  •  */ 

HSGCOUkT  1  (HAITIkG  1)  •  HSGCOU  kl  (HAI  TI  HG)  ; 

TCI  •  TCI  *  HSGCOUkT (HAITIRG) ; 

POLLSTAELESTXSFLAG  •  0; 


0 1 b  3  2000 
01633000 
0 1634000 
01635000 
01636000 
01637000 
0 163B000 
01639000 
01640000 
01641000 
01642000 
01643000 
01644000 
01645000 
01646000 
01647000 
0  1648000 
01649000 
01650000 
01651000 
01652000 
01653000 
01654000 
01655000 
01656000 
01657000 
01658000 
01659000 
01660000 
0166  1000 
01662000 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01684000 
01685000 
01686000 
01687000 
01688000 
01689000 
01690000 
01691000 
01692000 
01693000 
01654000 
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Gb  1b  COHSUFIOADI; 

/**/ 

/*•/ 

/*  PbLL  TABLE  SET  DC  */ 

/♦*/ 

/•*/ 

/**/ 

/•  GET  1  C  I  DATA  */ 

/**/ 

/**/ 

rOLLlAbLEBUILCI:  IE  k  U  H  J  PC  I  •  0  THEk  CO  TO  R  POLLBU ILD  1  ; 
k  »  4*fcUr.F  PCI ; 

CO  1  •  1  TO  N ; 

POLLIAbLE  1  (I)  >  PCIJSTORE  (I)  ; 

IRE; 

/**/ 

/••/ 

/*  GET  h  C  I  DATA  •/ 

/••/ 

/•*/ 

kPOLLBUILD  1:  IT  NUHJRCI  *  0  THEk  GO  TO  kPOLLBblLDl; 
k  -  4*kUMhCI; 

POlCPOlklEh  1  -  4  •  NUHAPCI ; 

DO  I  ■  1  TC  K; 

POLLIAbLE  1  (POLLFOlkTER 1  ♦  X)  «  RCISSTURE(X)  ; 

END; 

/••/ 

/*♦/ 

/•  GET  k  C  X  DATA  •/ 

/•*/ 

/**/ 

kPOLLbUl LD  1 :  IF  NUflJkCI  •  0  THEN  GO  TO  GPOLLBU  X  LD 1 ; 
k  *  4*kUf1*kCI; 

FOLLPOIkTEht  -  4  «  (kUHSPCI  ♦  NUntPCI)  ; 

DO  1  ■  1  TC  N; 

PO  L  LI  A  BL  E  1  (  POELPOl NTER  1  ♦  I  )  »  kCISSTOR  E (1)  ; 

END; 

/**/ 

/**/ 

/•  GET  OCX  DATA  */ 

/•*/ 

/*«/ 

GPOLLbUl LD  I :  If  NUHEGCI  •  0  THEN  GC  TO  PO LLI Ab LEDUMP 2 ; 
k  •  4*NUniGCl; 

FOLLPCINTER1  •  4  *  (NUHSPCl  ♦  NUHJRCI  ♦  kUHiNCI); 

DO  I  -  1  TO  N; 

POLLIABLEl  (PCLLPOINTER1  «  I)  •  GC  IPS  TORE  (I)  ; 

EkC; 

GO  TC  PCLLTABLEDURP2; 

/•*/ 

/••/ 

/*  OUTPUT  •/ 

/**/ 

OFCiLLIbl:  XI  DELAY  1  •  1  THEN  GO  TO  CE  LA  Y  S  ROU  TX  NE  1  ; 

IF  NAXT1NG1  <•  0  THEN  GO  10  IP01L1; 

IF  TCI  >  0  THEN  GO  TO  E0PTEST1; 

ELSE  GO  TO  IPOLll; 

E0H1EST1:  IF  0UTC0UNT1  <  HS GCOU  NT  1  ( 1 )  THEk  GO  TO  SPACETEST  1 ; 

ELSE  DELATE  -  1; 

SPAC  ETES1  1  :  SFACEE  •  I NPUT 10  SEDA T A  NOR  OFFH ; 

SPACE1  ■  S  PACE  1  AND  C2H; 

IF  SFACEE  •  02H  THEk  GO  TO  OUTCHARE; 

ELSE  CELAYE  •  0; 


0 1695000 
0 1690000 
01697000 
0 1698000 
01699000 
01700000 
01701000 
01702000 
01703000 
01704000 
0  1705000 
01706000 
01707000 
01706000 
01709000 
01710000 
0171 1000 
0  1 7 1 2000 
01713000 
01714000 
01715000 
01716000 
01717000 
01718000 
01719000 
01720000 
0172  1000 
01722000 
01723000 
01724000 
0  1726000 
01726000 
01727000 
01728000 
01729000 
01730000 
01731000 
01732000 
01733000 
01734000 
01735000 
01736000 
01737000 
01738000 
01739000 
01740000 
0174  1000 
01742000 
01743000 
01744000 
01745000 
01746000 
01747000 
01746000 
01749000 
01750000 
01751000 
01752000 
01753000 
01754000 
01755000 
01756000 
01757000 


GC  10  IPOLLI; 

✓  **/ 

/**/ 

/*  DELAY  R0UT1N  ES  •/ 

/**/ 

/•*/ 

DELAYJK0UT1NE1:  CLK  1  •  IKPUT(230); 

CLK1  •  CLK  1  AND  01H; 

IT  CLM  •  CLAP  1  THEN  GO  TO  IPOLLI; 

CLKC  NT  1  «  CLKCNT 1  ♦  1; 

CLKP1  •  CLKl; 

I r  C  L  KC  NT  1  <  bUFFERSDELAY  1  THEN  GO  TO  IPOLLI; 

OUTPUT  (235)  -  OSH  ; 

it  TLHSFLAG  <>  'I*  THEN  GO  TO  NONITDR* DELAY 1 ; 
TOKlDELAYihCUTIKE  1:  CLK  3  -  INPUT(23G); 

CLK3  *  CLK3  AND  01H; 

if  C I K  3  *  CLKP3  THEN  CO  TO  1FCLL1; 

CL  KO  NT i  *  CLKCNT3  ♦  1; 

C  LKP  3  «  CLK  3 ; 

IF  CLKCNT3  <  S LOT  I GU AR DiTI R E  THEN  GO  TO  1P0LL1; 

LELA  Y  1  -  0  ; 

CLkCMI  *  0; 

CLKCNT 2  -  0; 

CLKC  NT  3  *  0; 

GO  Tt  IPOLLI; 

RoNjICKJ  DELAY  1:  CLK2  *  INPUT  (230); 

CLK2  *  C  LK  2  AND  G  1h  ; 

II  C  LK  2  *  CLKP2  THEN  GO  To  IPOLLI; 

CLKCNTi  •  CLKCNT2  »  1; 

U  LK p 2  •  CLK2; 

LI  CLKCNTi  <.  NCNfTDnEHSGSLtLAY 1  THEN  GO  TO  IF0LL1; 

II  CC  «  C  Th  E  N  DELAY  1  *  CH; 

ELSE  DELAY  1  *  0  1h  ; 

II  NONiTCr.JrSCiDELAY  1  <*  jCH  THEN  GO  TO  H  *  t  b  U  SY  i  0  V  E  RR  ID  El  ; 
CLKCNT  1  ■  0  ; 

C  LKCNT2  «  0; 

C  LI  C  NT  3  ■  0; 

Go  TO  IPOLL 1 : 

/«’/ 

/*•/ 

NAlbOSYJCVLKRlDEI:  DELAYI  •  0; 

DC  CASE  FOLLSFLAG; 

NOMTDHJUSGJDELAYI  »  0; 

NONJTOHJP.SGIDELAY  1  •  3th; 

E  At ; 

C  LKCNT  1  *  C; 

CLKCNT2  •  U; 

C  LKCNT  3  ■  C; 

GG  TO  IPOLLI; 

/*•/ 

/••/ 

OUTCHARl:  CCTPUT  (235)  *  09H; 

OUTPUT  1U11LATA  ■  OUT T A bLE 1  (OUTC CU N T I )  XOR  0  FFH ; 

OU  TC  CUNT  I  ■  0UTCCUNT1  ♦  1; 

SHIFTCCaNI:  II  OUTCGUNT  I  <•  HSGCOUNH(I)  THEN  GO  TO  IPOLLI; 

ELSE  DC  II  *  OUTCCUNT 1  TO  TCI; 

GUTTAELEI  l  II  «1  -  GUTCOUNT  1)  *  OUTTAHLE 1  (I  1)  ; 

END; 

toil*  lie  NAITING1 ; 

RSGCCUNTl(ll)  ■  HSGCO  U  NT  1  ( I  1  ♦  1  ); 

ENL; 

TCI  •  TCI  -  (  OUTCOUNT 1  -  1  )  ; 

R  S  GC  0  U  NT  1  (NAITING  1)  *  U; 


01758000 
01759000 
01760000 
01761000 
01762000 
01763000 
01764000 
01765000 
01766000 
01767000 
01768000 
01769000 
01770000 
01771000 
01772000 
01773000 
0  1  774000 
01775000 
01776000 
01777000 
01778000 
01779000 
01780000 
0  176  1000 
01782000 
01783000 
01784000 
01785000 
01766000 
01787000 
01768000 
01769000 
01790000 
0  179  1000 
01792000 
01793000 
01794000 
01795000 
01796000 
01797000 
01798000 
01799000 
01600000 
01801000 
01802000 
0 1 6C  3000 
01804000 
0  1605000 
01806000 
0  1807000 
01808000 
01809000 
01610000 
01811000 
01612000 
01613000 
01614000 
01815000 
01816000 
01617000 
01618000 
01619000 
01820000 
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UA1TIAG  1  «  WAITING  1  -  1  ; 

0UTCOUAT  1  ■  1; 

0162 1000 
01622000 

It  AA1TIAG1  =  0 
1.0  TO  1FGLL1; 

THE*  TCI  »  0; 

01623000 

01620000 

4>01T;  OUTPUT  (2) 

*  CC; 

01626000 

OUTPUT  (I) 

•  CC  1 ; 

01826000 

OUTPUT  (2) 

•  HSGC0UNT  (1)  ; 

01627000 

OUTPUT  (2) 

*  HSGCOUAT  1(1); 

01628000 

OUTPUT  (2) 

•  TC; 

01629000 

OUTPUT  (2) 

-TCI; 

01630000 

OUTPUT  (2) 

«  OUTCOUNT; 

01631000 

OUTPUT  (2) 

•  OUT  CO  UK T 1 ; 

01832000 

OUTPUT  (2) 

-  WAITING; 

01833000 

OUTPUT  (2) 

•  AAITIAG1; 

0 1 63u  000 

OUTPUT  (2) 

•  KUnSFCl; 

0 1 836000 

OUTPUT  (2) 

*  AUfltkCI; 

01636000 

OUTPUT  (2) 

•  NUr.lACI; 

01837000 

OUTPUT  (2) 

»  KUr.JGCI; 

01638000 

OUTPUT  (2) 

tor 

-  PT1COUKT1; 

01839000 

01890000 
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GLOSSARY 


AFSATCOM 

Air  Force  Satellite  Communications 

AFSC 

Air  Force  Systems  Command 

ASR 

automatic  send  receive 

BCD 

binary  coded  decimal 

b/s 

bits  per  second 

CINC 

Commander-in-Chief 

CMOS 

complementary  metal-oxide  semiconductor 

COMSUP 

communications  supervisory 

CP 

command  post 

CPU 

central  processing  unit 

CRT 

cathode  ray  tube 

EAM 

emergency  action  message 

EDAC 

error  detection  and  correction 

EPROM 

eraseable  programmable  read-only  memory 

ESD 

Electronic  Systems  Division 

FLTSATCOM 

Fleet  Satellite  Communications 

FSA 

free  storage  area 

FSK 

frequency  shift  keying 

IC 

integrated  circuit 

I/O 

input/output 

ISA 

instruction  storage  area 

LSI 

large  scale  integration 
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GLOSSARY  (Continued) 


MI 

message  indicator 

MPU 

message  processor  unit 

NB 

narrowband 

NCA 

National  Command  Authority 

NCS 

net  control  station 

OV 

orderwire 

PROM 

programmable  read-only  memory 

R/T 

receiver/ transmitter 

RX 

receive 

SBC 

single  board  computer 

SDS 

Satellite  Data  System 

SIOP 

Single  Integrated  Operations  Plan 

SSDA 

synchronous  serial  data  adapter 

TDM 

time  division  multiplex 

TTl 

transistor-transistor  logic 

TX 

transmit 

UHF 

ultra  high  frequency 

VSA 

variable  storage  area 

WB 

wideband 

WWABNCP 

Worldwide  Airborne  Command  Post 
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